









































Wimbledon'64 


Envíenos a MICROBYTE 


San Gerardo. 59 MADRID-35 


PROGRAMAS 
ORIGINALES 
DE IMPORTACION 
PARA 


TOOOS ESTOS PROGRAMAS 
HAN ESTADO SITUADOS 
ENTRE LOS CINCO 
PRIMEROS PUESTOS 
DE LAS LISTAS 
DE SUPERVENTAS 
BRITANICAS 


BEACH HEAD. El juego más popular de 
América con los más sorprendentes efectos 
de animación (COMP ANSWER) Los mejo¬ 
res efectos de sonido y gráficos para este 
computador (US. BILLBOARDi Múltiples 
pantallas, fantásticos efectos tridimensio¬ 
nales en un escenario de acción bélica Un 
best-seller (GAMES) 2 300 pts 


WIMBLEDON 64 Uno de los mejores 
juegos de simulación de deportes concebi¬ 
do para C-64 (C & V GAMES; Horas de 
entretenimiento para los amantes del tenis 
y admiradores de McEnroe Connors y Borg 
(POP COMP WKLV) Los gráficos la movili¬ 
dad y el control de las jugadas es fantástico 
(YOUR 64 ) 2 300 pts 


MANIC MINER. Verdaderamente supera 
a la versión líder de ventas para Spectrum 
(COM USGR j Pantallas y pantallas con 
todo tipo de gráficos, colores y efectos 
musicales (HOME COMP WKLY) Superior a 
“Mmer2049 Sin más(CRASH) 1 800 pts 


SOLO FLIGHT. Incomparable solo nece^ 
sita pista y alas 'COMPUTE) Constantes 
efectos tridimensional#*, perfecto scroll y 
auténticos efectos sonoros (RUN). 21 aero 
puertos diferentes idénticos instrumentos 
de bordo emergencias Y.O R una perfecta 
simulación de vuelo (COM USER) 

3 900 pts 


ENCOUNTER. Los gráficos son perfec 
tos. el efecto tridimensional soberbio Este 
juego es un primera dase (WICH MICRO 
ENCOUNTER es el juego de salón mas com 
pleto escrito para un ordenador personal 
(GAMES) Nuestra puntuación un 10 
(TPUG) 2 300 pts 


DECATHLON La animación y los gráficos 
de los atletas es soberbia (PC GAMES 
Decathlon es una bella simulación de los 10 
eventos de la popular prueba olímpica (PO 
PULAR COMPUTING) Uno de los programas 
mas adictivos y espectaculares que he 
conocido (CRASH) 7 800 pts' 


COLOSSUS CHESS 20 Este jm 
inteligencia es indiscutible en vuesi 
blioteca (GAMES) El juego mejor logn 
su categoría (POP COMP WKLY) 8r« 
sin duda 4 estrellas (COMP & 
GAMES) 2 8C 


PITFALl Uno de los juegos para Atar, 
mas vendidos en U S A ahora en COMMO 
DORE (WHAT MICRO) Caimanes serpien 
tes. escorpiones una selva en tu 64 
(GAMES COMPUTING) /Quien ha sido 
capaz de encontrar los 32 tesoros escon 
didos en menos de 20 minutos 7 (ELEC 
TRDNICS & GAMES) 2 800 pts 


ASTRO CHASE 34 pantallas con carica 
turas animadas en tres dimensiones 
(GAMES) Juego de fantasía y ciencia fie 
ctón del año 1984 (ELECTRONIC GAMES La 
mayor innovación en videojuegos (THE 
WHIZ KID) Este programa batira todos los 
records de supervenías lRUN> 2 300 pts 


R lente altamente 
Color y sonido 
los nuestra pun- 
LO <C0MP & VIOEO GAMES» 

1 800 pts 


'¿■un supersonidoson> 
le es e^^íri{«r.{>C[ 

versiones Qu^HnN^ 
Coleco etc ) hansmM^ 
duda esta lo sera tambu 
BOARDi 


C0MM0D0RE 64 

ÍRON 

FROGGER (Joystick) 
KONG 

SCREEN GRAPHICS 
ENSAMBl ADOR 


VIC-20 

JOY STICK PAINTER 

PIPER 

TRON 

INVASION 

PHANTON 

PARATROPFRS 


Nombre 

Juego 

Precio 

“ 

TOTAL 

Apellidos 





Dirección 





Población 





DP Teléfono 





Incluyo talón nominativo □ 

Contra Reembolso □ 

ENVIOS GRATIS 





PRECIO TOTAL PESETAS 



91-6565002 
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6. 

Cartas. Nuevas preguntas y comentarios de nues¬ 
tros lectores que contestamos y que esperamos va¬ 
yan aclarando dudas. 

8. 

Music-64. Comentamos las excelencias de un tecla¬ 
do de profesionales, junto con un programa, para 
los aficionados (o profesionales) de la música. Con 
este Music-64 y un buen altavoz verás de lo que es 
capaz el chip de sonido de tu Commodore-64. 

12. 

Sintetizador-64. Seguimos con la música, una de 

las posibilidades del C-64 que más interesan a nues¬ 
tros lectores. Sintetizador-64 es un programa que 
podéis teclear y que os permitirá explorar todos los 
sonidos del 64. 

14. 

Trucos. Explicamos nuevos truquitos para que po¬ 
dáis exprimir a fondo y sacar todo el jugo a vues¬ 
tro ordenador. 

18. 

Supervivencia. Primera parte de un fabuloso jue¬ 
go de aventuras. La acción se desarrolla en una jun¬ 
gla tropical. Nuestro héroe volaba en su avioneta 
cuando repentinamente... 

28. 

Software comentado. Dos nuevos programas revi¬ 
sados con lupa. AZTEC CHALLENGE, un jue¬ 
go, y BASE DE DATOS FICHEROS, una utilidad. 
Ambos para el C-64. 

30. 

Regresión lineal. Un interesante programa de ma¬ 
temáticas para el VIC. 

34. 

Programas. Este mes más y mejores programas pa¬ 
ra el VIC y el C-64. FORMULA VIC, de coches, 
CORSARIO, de piratas, MODULO ESPACIAL, 
galáctico, y HALTEROFILIA, deportivo. 

55. 

Diskettes. Un paseo por el interior de un diskette 
para conocer a fondo cómo y dónde se guarda la 
información de programas, ficheros y datos. 

62. 

Forth. Segunda parte del artículo sobre el lengua¬ 
je FORTH. Para seguir aprendiendo cosas sobre es¬ 
te famoso lenguaje y poder apreciar toda su po¬ 
tencia y flexibilidad. 


Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo- 
dore Business Machines ni de sus representantes. 
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La reciente introducción del ordenador C-16 hace pensar que Commodo¬ 
re Business Machines irá consolidándose cada vez más en el difícil y concurri¬ 
do mercado del micro de bajo precio. En estas mismas páginas, escribíamos 
sobre la presentación de los nuevos modelos, hace pocos meses. 

Por otro lado, la multinacional americana no parece tener demasiada pri¬ 
sa por lanzar definitivamente los modelos de la gama orientada a los profe¬ 
sionales. Nos referimos concretamente a las anunciadas máquinas: compati¬ 
ble con el PC de IBM y la basada en el microprocesador Z-8000. Recordemos 
el impacto que produjo CBM cuando compró la firma canadiense Hyperion, 
fabricante de un compatible IBM con pantalla de 9” incorporada y teclado 
separable. Aunque en la Feria de Hannover vimos el modelo que se comercia¬ 
lizaba originalmente, al que solamente le habían añadido etiqueta con el lo¬ 
gotipo de Commodore, esta última se apresuró a comentar un nuevo diseño 
de la carcasa y diversas mejoras respecto al modelo original. Hasta el mo¬ 
mento no parece haber prisas por lanzarlo. 

Incluso la posibilidad de fabricar el chip microprocesador 8086, bajo li¬ 
cencia por parte de MOS Technologies , subsidiaria de CBM , hizo pensar en 
una fuerte entrada de esta firma en el mercado de los compatibles. De alguna 
manera, el C-16 consolidaría a Commodore en el segmento de mercado y pre¬ 
cio que en su día abrió el legendario Vic-20. 

En este numero hemos abierto una línea de programas orientados a quienes 
gustan de los juegos de aventuras. Lamentablemente Vic-20 no es tan apto pa¬ 
ra las aventuras, que necesitan de un programa largo, por la limitación de la 
memoria, pero buscaremos alguno con interés suficiente para el lector. La ma¬ 
nera más familiar para los músicos de producir melodías con el 64 también 
es abordada en este número, con la revisión del conjunto teclado + software, 
Music 64. 
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Códigos de control 


para el VIG-20 y el G-64 



CONO SE 

VE CONO SE TECLEA 

EFECTO CONSEGUIDO 


COLORES 

DEL VIC-20 V DEL 64 



■ 

CTRL+1 

NEGRO 


4 

CTRL+2 

BLANCO 


ai 

CTRL+3 

ROJO 


k 

CTRL+4 

CIAN 


i 

CTRL+5 

PURPURA 


Eii 

CTRL+6 

VERDE 


r.n 

KM 

CTRL+7 

AZUL 


lil 

CTRL+8 

AMARILLO 


COLORES 

DEL 64 SOLAMENTE 



¡¡3 

CBM+1 

NARANJA 


K 

CBM+2 

MARRON 


es 

CBN+3 

ROSA 


i] 

CBM+4 

GRIS OSCURO 



CBM+5 

GRIS MEDIO 


VI 

CBN+6 

VERDE CLARO 


□ 

CBN+7 

AZUL CLARO 


vi 
■ R 

CBM+8 

GRIS CLARO 


CODIGOS 

5 DE CURSOR V CONTROL 



a 

HOME 

CURSOR A CASA 



SHIFT+HONE 

LIMPIA PANTALLA 


Pi 

CRSR 

CURSOR DERECHA 


ii 

SHIFT+CRSR 

CURSOR IZQUIERDA 


w 

CRSR 

CURSOR ABAJO 


n 

SHIFT+CRSR 

CURSOR ARRIBA 


a 

CTRL+9 

CARACTER INVERSO 


i 

CTRL+O 

CARACTER NORMAL 


ii 

DEL 

BORRAR 


ii 

SHIFT+DEL 

INSERTAR 


TECLAS 

DE FUNCION 



■ 

F1 



a 

F2-SHIFT+F1 



■ 

F3 



k¡ 

F4*SHIFT+F3 



ii 

F5 



SI 

F6-SHIFT+F5 



ii 

F7 



■ 

F8-SHIF.T+F7 
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Cartas 


P.: Me gustaría que me ayudáseis 
a resolver un problema que tengo 
con mi Vic-20. 

Resulta que estoy haciendo un pe¬ 
queño programa de aplicaciones pa¬ 
ra mi trabajo y la cuestión es que 
quiero introducir datos con la cláu¬ 
sula INPUT y me sale bien, pero lo 
que no quiero es que me salga el in¬ 
terrogante, ya que me queda muy feo 
y me estropea el programa en gene¬ 
ral. 

J. F.° Ferrando 

R.: Hace poco tiempo publicamos 
la respuesta para el mismo problema, 
planteada para un C-64. En el caso 
del Vic-20 es exactamente análoga. 
Partimos del conocimiento de que el 
teclado es tratado por el Vic 20, co¬ 
mo el dispositivo que tiene asignado 
el número 0. Esta posibilidad la po¬ 
demos tratar con fines de Entra¬ 
da/Salida. Es decir, el teclado actúa 
como si fuera un dispositivo de en¬ 
trada de datos en el ordenador. Así 
la utilización de INPUT# introduce 
lo datos sin que tenga porqué apare¬ 
cer el símbolo 

La siguiente rutina breve te dará 
la respuesta apetecida: 

Existe otra forma de conseguir lo 
mismo. Consiste en poner a 1 la di¬ 
rección de la memoria 19, antes de 
incluir la sentencia con INPUT, de¬ 
sapareciendo la “?”. Una vez intro¬ 
ducido el dato, debemos devolver su 
contenido, poniendo a 0 esta direc¬ 
ción: 

Esperamos que la respuesta sea sa¬ 
tisfactoria para tu programa. 


P.: Tengo un C-64 y he leído mu¬ 
chas veces sobre cómo programar las 
teclas de función. La mayoría de las 
veces se utiliza la sentencia GET. 
¿Existe otra manera de detectar cuan¬ 
do es presionada una tecla de fun¬ 
ción?; ¿existe alguna dirección que 
pueda PEEKear? 

R.: Sí, la dirección de memoria 197, 
tanto en el Vic-20 como en el C-64, 


C umn i i iodor» 
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indica la tecla que estamos pulsando 
en un momento dado. Utilice la si¬ 
guiente línea de programa: 

10 PRINT PEEK (197): GOTO 10 

Mientras está funcionando este 
programa presione una tecla de fun¬ 
ción. Como puede ver, cada vez que 
activa una tecla el valor que aparece 
en la pantalla cambia. Si no presio¬ 
namos ninguna, el valor es 64. El va¬ 
lor correspodiente a cada una de las 
teclas es el siguiente para cada orde¬ 
nador: 


TECLA 

Vic-20 

C-64 

F1 

39 

4 

F3 

47 

5 

F5 

55 

6 

F7 

63 

3 


El problema de este método es que 
el valor mostrado es el mismo inde- 
pedientemente de que se presione 
Shift o no. Para solventarlo podemos 
recurrir a PEEKear otra dirección de 
la memoria, la 653, que indica si ha 
sido presionada SHIFT, CTRL o la 
tecla Commodore. El bit 0 se ponde 
a 1 con la presión de SHIFT, la tecla 
Commodore afecta a bit 1 y CTRL 
SHIFT, la tecla Commodore afecta al 
bit y CTRL al 2. 


P.: Contesto a su respuesta a Pedro 
J. Boj de Alicante en el n.° 8. 

Yo también soy un resignado pro¬ 
pietario de PET 2001-32K + 2 drive 
Cumputhink 4- Centronics 781. 

Existimos y probablemente seamos 
bastantes, pero creo que los demás co¬ 
mo yo estamos acostumbrados a que 
no cuenten con nosotros. 

En mi caso, pienso no cambiar de 
equipo, mientras me lo arreglen. Ya 
que es operativo para los programas 
técnicos que he desarrollado. 

De todas maneras miro con un po¬ 
co de envidia lo que se publica y no 
puedo utilizar. Tengo la esperanza de 
que alguna vez se acuerden de noso¬ 
tros. Animen a los PETistas a salir a 
la luz, aunque sea por mantener nues¬ 
tro interés por la revista. 

J.L. Resines. Las Palmas de Gran 
Canaria. 


R.: Nos alegramos mucho de reci¬ 
bir esta carta. Con ella aprovechamos 
para hacer lo que nos sugiere: «ani¬ 
mar a los PETistas», pero es que es¬ 
tán de lo más callado. 

En Commodore Magazine estamos 
dispuestos a recibir las colaboraciones 
de cuantos hayan desarrollado algo 
para los legendarios PET. Esta invi¬ 
tación es nuestra única posibilidad de 
publicar algo, pues carecemos del 
equipo, necesidad básica para poder 
hacer algo. Incluso trataríamos de ha¬ 
cer el esfuerzo que implica hacer de¬ 
terminado tipo de adaptaciones. ¿Por 
qué no publicar uno de esos progra¬ 
mas técnicos que nos menciona? Es¬ 
peramos que los poseedores del PET 
al menos nos escriban para hacernos 
conocer su existencia e inquietudes in¬ 
formáticas. 


P.: Por favor, desearía recibir infor¬ 
mación sobre todos los juegos que 
existen actualmente para el Commo¬ 
dore 64. 

Si es posible mándenme un folleto 
o catálogo. 

También los precios correspondien¬ 
tes a cada juego. 

J.M. a Liado. Granada. 

R.: Tu carta tiene un contenido si¬ 
milar al de muchas otras que recibi¬ 
mos. Respondiéndote esperamos res¬ 
ponderos a todos. 

Commodore Magazine es una re¬ 
vista encuadrada en el entorno de una 
editorial. Nosotros no vendemos or¬ 
denadores, periféricos o software, úni¬ 
camente revistas. 

De todas las maneras, dado el in¬ 
terés que es evidente existe por cono¬ 
cer la realidad de mercado, Commo¬ 
dore Magazine está realizando una 
guía de software ; que se incluirá en las 
páginas de la revista en un próximo 
número. 

De cualquier manera, lamentamos 
no poder facilitaros la información 
comercial que nos solicitáis. 
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SI VAS A SEGUIR VIVIENDO 
EN ESTE PLANETA NO TE QUEDES 

DESCONECTADO 



Ahora puedes hacerlo de una 
forma sencilla y divertida. Con un 
dedo de la mano. Sin saber una pala¬ 
bra de inglés. Y sin moverte de casa. 


Gracias a un curso claro y entre¬ 
tenido que te ayuda a sacarle al or¬ 
denador todo lo que tiene dentro. 

Por supuesto que no te estamos 
hablando de un Manual de Instruc¬ 
ciones, y allá tú. Se trata de un pro¬ 
grama de aprendizaje muy práctico, 
diseñado por especialistas, para 
que nadie se aburra a mitad de ca¬ 
mino. 


Te ofrecemos 12 manuales de 
lecciones explicadas paso a paso. 

Te ofrecemos, si no tienes orde¬ 
nador, el COMMODORE 64 , el más in¬ 
teresante del mundo, para que prac¬ 
tiques desde el primer momento. Te 
ofrecemos un cuadro de profesores 
que te orientan continuamente en tu 
aprendizaje. ¿Qué pones tú? Pacien¬ 
cia. Y un poco de voluntad. 


Este es un curso diferente a todos los que 
conozcas. Es serio, pero sabiendo que no eres 
una máquina. Es divertido, pero sin olvidar que 
tienes que sacarle partido 

Consta de los siguientes elementos: 


Es, para que te hagas una idea, 
como un viaje organizado al futuro. 
¿Quieres una plaza? 


Con esos dos instrumentos te 
garantizamos que en seis meses 
serás capaz de operar con cual¬ 
quier programa que adquieras y 
algo que te gustará más: podrás 
crear tus propios programas para 
uso profesional o personal: gestión, 
administración, archivo, estadística, 
juegos, estudios... Verás qué diverti¬ 
do es tener paciencia. 


cUESas 


- 12 manuales de lecciones, preparados pa¬ 
ra aprender enseguida sin perderse en teorías. 

- 1 anexo de equivalencias. 

- Optativo: Un ordenador personal 
COMMODORE 64 , con su unidad de cassettes 
para practicar desde el primer minuto, porque 
como se aprende a dominar los ordenadores es 
trabajando con ellos. 

- Amplio número de programas y una orien¬ 
tación continuada de tus profesores. 

- No son necesarios conocimientos especia¬ 
les de ningún tipo. 

- Duración = Seis meses aproximadamente 
dedicando dos horas diarias. 

-Sistema de aprendizaje: A distancia. 

Cada manual incluye ejercicios amenos pa¬ 
ra realizar en el ordenador. El profesor contesta a 
vuelta de correo con las correcciones y los con¬ 
sejos necesarios. 

- Precio: El curso completo por algo más 
del precio del propio ordenador. Y con facilidades 
de pago. 


ccc 


PARA APRENDER 
EN CASA 





Centro de Enseñanza a Distancia autorizado en aplicación del Decreto 2641/1980 


Otros de los 
cursos CCC: 

- Electrónica. 

-Radio, TV. 

- Técnico en 
Energía Solar. 

- Instalador 
Electricista. 

-Técnico en 
Fontanería. 

- Graduado Escolar. 

- Guitarra. 

- Contabilidad. 

- Mecánico de motos. 

- Dibujante de cómics- 

- Inglés (con casette 
o por video). 

- Auxiliar Enfermera. 

- Puericultura. 

- Estheticiene. 

- Peluquerfa. 

- Masaje y 
Digitopresión. 

- Corte y Confección. 


Para hablar con los dedos, 
te echamos una mano 

El idioma del futuro, se practica con los 
dedos. Si quieres aprenderlo, la oportuni¬ 
dad está en tu mano: Envía este cupón. 


Deseo información g ratis y sin compromiso 

sobre el curso de: 


Nombre y Apellidos 


CCC Servicio 24 horaS 


® 943-467600 

Envía este cupón a: 

CCC Apelo 666 / o a CCC Apdo 17222 

20080 San Sebastián / 28080 Madrid 


C6-41-84-01-85 

























Music-64 



Este es el formidable aspecto qae ofrece el teclado Music-64. 


Es un hecho conocido que el Com- 
modore 64 incorpora en su circuite- 
ría interior chips exclusivos de aplica¬ 
ción específica, que liberan al micro- 
procesador de realizar determinadas 
tareas. Este es el caso del chip SID, 
un verdadero sintetizador de sonidos, 
cuyas posibilidades son casi ilimitadas 
en las manos de un programador ex¬ 
perto. Sin embargo, no sirve de mu¬ 
cho desarrollar un prodigioso progra¬ 
ma de síntesis musical si luego ha de 
ejecutarse desde el teclado del orde¬ 
nador. No parece que muchos músi¬ 
cos sientan pasión por la taquimeca- 
nografía, aunque esta vez las teclas 


produzcan notas musicales en vez de 
letras y números. Tal vez lo que nece¬ 
sita el 64 es un verdadero teclado si¬ 
milar al de un piano. 

El Music 64 es un teclado de cua¬ 
tro octavas destinado únicamente a 
trabajar con el Commodore 64. El as¬ 
pecto físico del conjunto recuerda a 
los órganos electrónicos clásicos. La 
carcasa de plástico que lo alberga es 
del mismo tipo y color que la emplea¬ 
da por el fabricante del ordenador. 
Por la parte posterior del teclado sa¬ 
le un cable plano, que en su otro ex¬ 
tremo dispone de un cartucho del 
mismo tipo empleado para los progra¬ 


mas en ROM, y se conecta en la ra¬ 
nura destinada a enchufarlos en el 64. 
En realidad no queda mucho más que 
describir del exterior. 

Para que el teclado nos ofrezca una 
verdadera utilidad práctica es necesa¬ 
rio el software que asegure su funcio¬ 
namiento. Existe una versión en cas¬ 
sette y otra en diskette. Durante nues¬ 
tro examen dispusimos de la segunda 
versión. Aun no siendo virtuosos de 
la ejecución musical nos encontrába¬ 
mos ansiosos por ponerle la mano, 
mejor dicho los dedos, encima a este 
atractivo conjunto. 

Una vez conectado el cartucho del 
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teclado, presionamos el conmutador 
de alimentación del 64. Tras el fami¬ 
liar READY decidimos leer el direc¬ 
torio de los ficheros de programas 
contenidos en el diskette , y aparecen 
tres nombres en la pantalla: «Mono 
64», «Poly 64» y «Gestione». 

Seguimos leyendo la hoja que cons¬ 
tituye el manual y la primera referen¬ 
cia se hace al Mono 64, explicando 
que se trata del sintetizador monofó- 
nico. Pues bien, cargamos este progra¬ 
ma en la memoria. Hagamos un in¬ 
ciso para aclarar que la hoja/manual 
no es demasiado clara, pues contiene 
giros raros hechos durante la traduc¬ 
ción, pero esto no desmerece en ab¬ 
soluto a la magnífica calidad del 
equipo. 

Una vez que hemos cargado el pro¬ 
grama y este se ejecuta, en la panta¬ 
lla aparece el título del mismo, inme¬ 
diatamente debajo un diagrama ale¬ 
górico al teclado y la indicación, to¬ 
do en inglés, de que debemos esperar 
un instante atentos a la pantalla de 
nuestro televisor o monitor. Inmedia¬ 
tamente después se vuelve a encender 
el led, que indica la operación de la 
unidad de diskettes ; y comienza a car¬ 
garse el programa «gestione», que 
convive en la memoria con el anterior. 

Cuando termina la carga del soft¬ 
ware , el ordenador visualiza la prime¬ 
ra pantalla que nos permite comen¬ 
zar a trabajar. Es realmente el panel 
frontal de un sintetizador compacto. 

Seis rectángulos forman el conjun¬ 
to, cada uno con su propia misión. El 
situado en la esquina superior izquier¬ 
da (ver foto) se encarga de la envol¬ 
vente, por medio del control de los 
cuatro parámetros, que establecen las 
magnitudes de Ataque, Decaimiento, 
Sostenimiento y Relajación. A su de¬ 
recha está el rectángulo que controla 
el filtro, con otros cuatro parámetros: 
Modo 1, p, Corte, Modulación ADSR 
(con el generador de envolvente) y Re¬ 
sonancia. El tercero de la fila superior 
se encarga del control de los tres pa¬ 
rámetros del oscilador de muy baja 
frecuencia (L.F.O.), que son Veloci¬ 
dad, Modulación del filtro (V.C.F. = 
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Voltage Controled Filter) y Modula¬ 
ción del oscilador. 

Debajo se localizan los dos rectán¬ 
gulos que afectan a los dos oscilado¬ 
res, que son en realidad las voces o ca¬ 
nales 1 y 3 del SID, pudiendo elegir 
entre las cuatro conocidas formas de 
onda: Ruido, Diente desierra, Impul¬ 
sos y Triangular, aparte de estar pre¬ 
vistos otros ajustes tales como la du¬ 
ración del tiempo activo del ciclo del 
impulso. Por último, el rectángulo si¬ 
tuado en la parte inferior derecha 
controla el nivel del volumen de la sa¬ 
lida de audio entre 0 y 15, como se 
hace normalmente en el SID. 

Probablemente con esta breve expli¬ 
cación de lo que hay, parezca difícil 
ejercer el control sobre el panel de la 
pantalla, pero nada más lejos de la 
realidad. Las cuatro teclas de función 
facilitan enormemente la labor. F1 pa¬ 
sa al parámetro siguiente cuando es 
presionada. Cuando está en el último 
parámetro de un rectángulo pasa al 
primero del siguiente. F2 hace lo mis¬ 
mo, pero en sentido inverso. Cabe 
aclarar que las teclas gozan de la pro¬ 
piedad de la autorrepetición, es decir, 
el ordenador interpreta que estamos 
presionando repetidamente la tecla y 
el acceso a los parámetros lejanos es 


más rápido. Por su parte F5 sirve pa¬ 
ra aumentar el valor del parámetro so¬ 
bre el que estamos situados. Así po¬ 
demos hacer que sea más largo el 
tiempo de subida del período de ata¬ 
que o elevar el volumen general o ha¬ 
cer que el filtro trabaje en resonancia, 
etc. La tecla F7 hace lo mismo, pero 
disminuyendo el valor en lugar de ele¬ 
varlo. 

Paralelamente, en la parte más ba¬ 
ja de la pantalla existe una hilera de 
trece cuadrados que contienen cada 
uno un número del cero al nueve y las 
letras A, B y C. Presionando la tecla 
correspondiente a cada uno de esos 
números y letras podemos acceder a 
la síntesis de un instrumento musical 
diferente. Al mismo tiempo se alteran 
los valores de los parámetros del pa¬ 
nel de acuerdo con el instrumento en 
cuestión. Para saber en qué momen¬ 
to estamos, el cuadrado correspon¬ 
diente a nuestra elección visualiza el 
número o letra en inverso y debajo 
aparece escrito el nombre del instru¬ 
mento, que puede ser: Trompeta, Me¬ 
tal, Clarinete, Campanas, Flauta, 
Guitarra, Metal con Wha, Cuerda, 
Piano, Organo eléctrico en versión 
1 ó 2, Acordeón y Sonidos aleatorios. 

Si por cualquier circunstancia de- 
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Pantalla para ajustar parámetros en mo¬ 
do monofónico (trompeta). 

seamos alterar algunos de los paráme¬ 
tros, o todos, simplemente con presio¬ 
nar la tecla de función adecuada a 
nuestro deseo recobramos el control 
sobre el panel y la leyenda del instru¬ 
mento es alterada por otra que dice 
«Modify Mode», o lo que es igual: 
trabajamos en el modo que permite 
modificar los valores. La tecla CLR 
nos permite recuperar los valores del 
instrumento que habíamos elegido 
previamente. 

La segunda opción es la del tecla¬ 
do polifónico, que se carga desde el 
diskette llamándolo por su nombre, 
Poly 64. En este caso aparece igual¬ 
mente un dibujo de teclado de piano 
y el consabido mensaje que incita a 
la calma mientras se carga el resto del 
programa. Con el sintetizador polifó¬ 
nico no tenemos representación de un 
panel en la pantalla. Podemos comen¬ 
zar eligiendo uno entre cinco instru¬ 
mentos: Espineta, Acordeón, Campa¬ 
nas tubulares, Flauta o Banjo. Eli- 


Menú de instrumentos utilizables en mo¬ 
do polifónico. 

giendo una de las cinco opciones de 
este menú aparece otra pantalla en la 
que ocho leyendas representan a otros 
tantos parámetros, que pueden ser ac¬ 
cedidos mediante las cuatro teclas de 
función F1 a F7 y la tecla SHIFT. Al 
lado de la leyenda identificadora de 
cada parámetro aparece un número 
que cuantifica el valor de cada carac¬ 
terística del sonido. Presionando la te¬ 
cla exponente (flecha hacia arriba) el 
ordenador da permiso al teclado pa¬ 
ra comenzar la ejecución, a su lado 
aparece la leyenda «play». La tecla M 
nos devuelve al menú anterior si lo de¬ 
seamos. 

Con las teclas de función podemos 
controlar los siguientes parámetros, 
por este orden: Ataque, Decaimiento, 
Sostenimiento, Relajación, Volumen 
global, Frecuencia, Forma de onda y 
Ciclo activo, en el modo de oscilador 
con impulsos. 


Cuando alteramos 


valores 


Pantalla de ajuste de parámetros en mo¬ 
do polifónico (acordeón). 

preestablecidos por el ordenador, el 
número correspondiente a ese pará¬ 
metro cambia a color rojo, para indi¬ 
carlo. Se pueden hacer tantas modi¬ 
ficaciones como se quiera y también 
podemos recuperar los valores origi¬ 
nales presionando la tecla R (para Re¬ 
set o poner en el estado inicial). 

Igual que sucede con el monofóni¬ 
co, el polifónico también dispone de 
una línea en la parte inferior que nos 
indica con qué instrumento estamos 
trabajando o si estamos efectuando 
modificaciones. 

La tarea de revisión de este hard¬ 
ware ha sido entretenida y amena. 
Quien más, quien menos ha hecho sus 
pinitos tocando alguna melodía sen¬ 
cilla en nuestra redacción, pero los ca¬ 
rentes de oído musical se han deleita¬ 
do simulando efectos especiales con 
el ruido blanco, el generador de en¬ 
volvente y el filtro. Los resultados han 
sido asombrosos en algunos casos. 
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SINTETIZADO» 64 



El chip SID del Commodore 64 es 
bien conocido como versátil sintetiza- 
dor de sonidos, pero su principal in¬ 
conveniente es que hay que progra¬ 
marlo mediante POKEs a sus distin¬ 
tos registros. 

Uno de los principales problemas 
que se encuentran a la hora de pro¬ 


gramar un juego es encontrar los so¬ 
nidos adecuados, teniendo que modi¬ 
ficar continuamente los registros del 
SID hasta encontrar los más adecua¬ 
dos. 

Este programa simplifica la crea¬ 
ción de estos sonidos, pues en la pan¬ 
talla se pueden visualizar todas las ca¬ 


racterísticas del sonido que se va a 
crear. 

Una vez cargado el programa, por 
el procedimiento habitual, se utiliza 
de la siguiente manera: 

— Las teclas de función: Fl, F3, 
F5 y F7, controlan la magnitud de 
ADSR. 

— Las teclas de movimiento del 
cursor sirven para seleccionar la nota 
y la octava del sonido. 

— Con las teclas S (sierra), T 
(triangular), R (ruido) y P (impulsos) 
se elige la forma de onda. 

— Elegida la opción de impulsos 
se introduce la anchura del mismo te¬ 
cleando un número comprendido en¬ 
tre 0 y 4095, después de haber presio¬ 
nado la tecla A. 

— La tecla D sirve para ajustar la 
duración de la nota, comprendida 
también en la rango 0 y 4095, como 
en el caso anterior. 

— La tecla de la flecha hacia arri¬ 
ba (exponente) visualiza cuáles son los 
valores a introducir en los registros 
con POKE, una vez que llegamos a te¬ 
ner plena satisfacción con el sonido. 

— La tecla que lleva impresa la fle¬ 
cha que señala a la izquierda nos per¬ 
mite escuchar el sonido que hemos 
creado. 

El programa va protegido, de tal 
manera que una vez puesto en mar¬ 
cha no se puede interrumpir, modi¬ 
ficar, ni introducir valores fuera del 
rango. 

Es posible introducir este programa 
junto con el 64 Musical, publicado en 
el n.° 3 de Commodore Magazine, 
aunque es preciso efectuar algunas pe¬ 
queñas modificaciones. 

Francisco Acosta 
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1 REM ******************* 

2 REM * SINTETIZRBQR 64 * 

"3 OCM i- * 

4 REM * FCO. RCOSTR * 

5 REM ******************* 


* 

* 



12 PRINT "& 


SINTETI2RD0R 64 


FRGICDSDNKttiSKSIRlWKDQHninjQiínRIQIM]*’ 


15 PRINT“»»»»LiN MOMENTO,POR FAVOR..." 

20 3=54272 : DIMRF < 7, 11) : BIMBF(7, 11) 

40 FORE=0TO7:FORN=0TO11 : R'ERBQ:REflLW : RFCE,N)=G:BF(E, N)=W:NEXTN• NEXTE 

45 RT=2 : BE=2:S0=2:RE=2 ; 00*55400 : DU*250 : F0=17:XP=0:VP=0■Xfl=0:VR=0 

46 PR=0 : F'B=0 ■ TR=0 : EB=0 : 05=0 ■ ER=0: RB=0 : SR=0: NR= 1860 

47 B$=" ¡&J I I I I I I I I I il | | | | | | " : C$="Eí I 1 I I I I I I I I I I I I I I I I I " 

00 F0RR=STÜS+24:POKER,0 = NEXT 

60 POKES+24,15 ; POKE650,128 

450 GOSUB5000 

500 GETfl$ ■ I Ffl$=" M THEN500 

50o IFR$*"T"THENF0*17 : GOSÚB950 : POKE56016, 3 




525 IFfl$="■"THENGOSUB600 
530 IFR$="THENGOSUB620 
=-"=• i Ffl$=" ||" THEWGOSUE640 
I FR$=" II" THENGOSUB660 
I Ffl$=" Jp" THENGOSUB680 
IFR$=" .T THENGQSUB700 
IFfi$*"m"THENGOSUB720 



560 IFR$=" il" THENGOSUB740 

580 IFfl*="fl"THENGOSUB800 

585 IFR$="B"THENGOSUB850 

590 IFfi$=" THENGOSUB900 

595 IFR$=" T"THENGOSIJB1000: G0T045 

597 IFR$="="THEN1200 

599 GOTO500 

600 RT=HT+1:IFAT=18THENRT=2 

605 PRINT"SnW"MID$(B$,1,RT);:PRINTMID*(C*, 1 , 19 -RT) : Tñ=RT-2 : RETI IRN 
620 BE=DE+1•IFBE=18THENBE=2 

625 PRINT" adíKIíttlW"MI D$ (B$, 1, BE ); : PRIHTMI B$ < C$ ,1,19-BE ) : EB=BE-2 • RETURN 
640 S0=S0+1:IFS0=18THENS0=2 

645 PRINT n i3WSMKSl<I)PPWJfl"MII)$<B$, 1,30) í ■ PRINTMIL$(C$, 1,19-50) ; 0S=S0-2 : RETURN 
660 RE=RE+1:IFRE=18THENRE=2 

665 PRINT" 1 ' MI Bí(B$, 1, RE) i ■ PRINTMIB$< C *, 1. Í-9-RE ) '■ ER=RE-2 : RETURN 

680 VF-VP+1:IFVP=12THENVP=0 

685 GOSUB960:RETURN 

700 VP=VP-1:IFVP=-1THENVP=11 

705 GOSUB960:RETURN 

720 XF-XP+2-IFXP=16THENXP=0 

725 GOSUB960•RETURN 

740 XP=XP-2 : IFXP=-2THENXP=14 

745 GOSUB960:RETURN 

800 CD=1961 : P0KE56216,3 : G0SUB375 : P0KE56216,8 

805 PR*INT < NT7256):PB=INT(NT-(PR*256)) : RETURN 

850 UD=1977:POKE56240,3 : G0SUB975 : POKE56240,8=BU=NT:RETURN 

900 POKE55960,3 : RD=1NTC<TH*16)+EB) •' SR=ÍNT( (03*16) +ER> 

920 POKES+1, RF< INT<XF’/2) , VP) : : POKES, BF< INT(XFV2) , VP) : POKES+5, RB : POKES+6, SR 

925 POKES+3, PR: POKES+2, PB: F'OKES+4, FO 

930 FORQ=0TOBU : NEXT : POKES+4,FO-1 : POKE55960,8 : RETURN 
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950 POKE56016,8 = POKE56056;8 : POKE56036;8:P0KE56136;8:RETURN 

960 PÜKECÜ+XA+<40*YA>>8 

965 POKECO+XP+C40*VP >, 3 

970 XA=XP:YA=YP:RETURN 

975 ES*CD : FORR-0TO3 •' G0SUB995 

980 GETN$ : IFN$=""THEN980 

985 IFRSC(N$)C48ÜRRSC< N$>>57THEN980 

990 POKECD;RSC<N$>:CD=CD+1:NEXT 

992 FORR=0TÜ3 : NU(R) = INT(<PEEK(ES+R)~48>*10T<3-A> > : NEXT 

994 NT=INT <NU<0)+NU<1)+NUí2 > +NU(3 >):CD-ES:IFNT>4095THEN975:RETURN 

995 FGRB=0TO4:PQKEES+40+B,32:NEXT:POKEES+40+A,30 : RETURN 

1000 PRI NT" 7138=54272 SFRGXW" 

1005 PRINT”VOLUMEN. PÜKES+24, 15WM n 

1010 PRINT"ALTA FRECUENCIA. POKE S+ 1,"INT < fiF < <XP/2>; VP) > 

1015 PRI NT" BAJA FRECUENCIA. POKE S+0 ; " I NT < BF C < XP/2 ") ; VP > ) 

1020 PRINT"ATAQUE/DECRIMIENTO.. POKE 3+5;";AD 

1025 PRINT"SOSTENI/RELAJACION.. POKE S+6,";SR 

1030 IFFOO65THEN1045 

1035 PRI NT "PULSO ALTO. POKE 8+3, .; PR 

1040 PRI NT "PULSO BAJO. POKE S+2,"JPB 

1045 PRINT"FORMA DE ONDA. POKE S+4;";FQ 

1047 PRI NT "MADURACION NOTA."; DU 

1050 PR I NT" IDOPWJÍlIíSF’ULSE UNA TECLA 
1090 GETA$ ; IFA$*""THEN1090 
1100 RETURN 

1200 PRINT'THASTA LA PROXIMA OCASION 3FAG immajmmBjQ '' 

1250 PRINT"PULSA RUN STOP/RESTORES" 

1300 POKE650;0:POKE808;235 
1450 END 

2000 DAT Al.. 18.. 1; 35.- 1.. 52.. 1.. 70.« 190.. 1.- i i 0 .• i.. 132.. i ; 1 o5 .. 1 ; i 79.. í.. 205; 1.. 233 ; 2 ; 6; 2 > 37 
2005 DATA2692 ; 104.. 2; 140/0.. i 79 .• 2.- 220 .* 3 .< 8 > 3.« 54.. 3.* í 033.« i 55 .• 3; 210.- 4.- 120 4 f 73 
2010 DATA4.. 139.. 4.. 208 / 5 / 25.- 5 .• 103.- 5 .• 1856.- 16.- 6.- 108 .• 6.- 206.- 7 .< 53; 7.. 163;8;23;8; 147 
2015 DATAS; 21/9.. 159.- 10.. 60.- 10.. 205.. 11.. 114.. 12.. 32.. 12; 216.. Í3.. i56.. 14.. 107.. 15.. 70; 16; 47 
2020 DATA17;37;18;42;19;63;20;100;21;154;22;227;24;63;25;177;27;56;28;214 
202o DATA30.« 141; 32.- 94.- 34 .< 75 .• 36 .< 85; 3o .• 126; 43200; 43 .* 52.- 45 .< 198 .* 48127; 51; 97 
2030 DATA54111 .• 57.- 172.-61; 126.* 64; 188.« 68.- 149; 72.- 169; 76; 252.« 81.«161; 86 .< 105 .• 91; 140 
2035 DATA96.« 254.. i 02184.. 108223 .< 115.« 88 .* 122 .* 52.- 129.- 120; 137...43; 145; 83; 153; 247 
2040 DAT A163.. 31.. 172.. 218.. 183.. 25; 193; 252; 205/133.- 217.. i 89; 230.. 1762 14 . 103.. 0; 0 
5030 PR I NT" .IRTAQUE SFII" • G0SUB5100 ; PR I NT ! DECAIMIENTO Zf 31" : G0SUB5100 

5302 PRINT"SOSTENIMIENTO SF5S" : 00SUB5100 : PRINT"RELAJACION SF7S" : GOSUB5100 

5004 PRINT"3" 

5010 PRINT"3"TAB<24>"0 123456 7":PRINT"»" 

5020 FORR-0TO11 : PRINTTRBC24)"• • •*•«« • ! :NEXT 
5030 PRINT"3"TAB'::2i > 

5043 PRINT"WMSFORMA DE ONDAS TOCAR NOTA»"' 

5042 PRINT" 5k.T^3 TRIANGULO SIS POKE3 NOTA" 

5045 PRINT"So! SIERRA":PRINT" ZFS RUIDO S=S TERMINA 

5047 PRINT"SPS PULSO" : POKENA;134 

5050 F'RI NT" JUBJñSNCHURA DE PULSO k0000í3 JSDSURRCION W0250" : POKENA+1; 129 
5055 PR I NT" Í3 < 0-4095 > f NOTA tM" : POKENñ+2; 135 

5100 PRINT"_PRINT"! i i ! i i I i i i i I M I i " : PRINT"-" 

5105 POKECO;3 : RETURN 
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Trucos 


INVIERTE MEDIA PANTALLA 

Con rutinas en lenguaje máquina 
no pueden hacerse muchas más cosas 
que con rutinas en BASIC o en cual¬ 
quier otro lenguaje. Pero hay una di¬ 
ferencia y es que el lenguaje máqui¬ 
na es el campeón de velocidad de los 
lenguajes (por supuesto velocidad de 
ejecución, pues a la hora de escribir 
programas es sin duda alguna el que 
más tiempo de programación consu¬ 
me). 

Esta rutina que os presentamos y 
que es para el VIC-20 es un ejemplo 
de lo que acabamos de decir. Se trata 
de una rutina en lenguaje máquina 
(aunque se carga en memoria a tra¬ 
vés de un cargador BASIC). 

La rutina permite invertir la mitad 
superior de la pantalla dejando intac¬ 
ta la mitad inferior de la misma. Con¬ 
cretamente quedan invertidas las 11 
primeras líneas. 


El cargador almacena la rutina en 
la zona del buffer del cassette, comen¬ 
zando en la dirección 832, de forma 
que una vez cargada, y mientras no 
se utilice el cassette, la rutina estará 
a salvo hasta que se apague el orde¬ 
nador. 

Para acceder a la rutina desde un 
programa BASIC hay que utilizar la 


siguiente sentencia: SYS (832) 

La aplicación más obvia de esta ru¬ 
tina es para programas de juegos, 
donde todo tipo de efectos extraños 
son bienvenidos. Sin embargo, segu¬ 
ro que entre nuestros lectores habrá 
quienes encuentren otro tipo de apli¬ 
caciones. ¡Si encontráis alguna real¬ 
mente interesante hacérnoslo saber! 


10 N=832 

20 RERDD:IFD*-1THEN80 

30 FÜKEN,D ; N*N+1:GOTG20 

40 DflTfi 162, 242, 189,255, 29,73 

50 DRTR128,157,255,29,202,208 

60 DRTR245,169,6,162,242,157 

70 DRTR255,149,202,208,250,96,-1 

80 PR I NT 11 riíIillIíIlliiiDFULSR iJNR TECLR” 

90 GETT$ : IFT$= !! "THEN90 

100 SVS832 : GOTÜ90 


MAQUINA DE ESCRIBIR 

El ordenador tiene un aspecto si¬ 
milar a una máquina de escribir. Así 
que, ¿por qué no utilizarlo como tal 
en un momento dado? 

El funcionamiento es simple, se 
carga el corto programa del final, se 
ejecuta y conectamos la alimentación 
a la impresora. 

El principal inconveniente radica en 
que no podemos escribir líneas de 
más de 75 caracteres de longitud. Pre¬ 
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sionando la tecla de retorno del ca¬ 
rro (Return) al final de cada línea ha¬ 
ce que ésta sea impresa. 

El característico símbolo utilizado 
por INPUT, la ?, aparece al comien¬ 
zo de cada línea, pero puede ser evi¬ 
tado con otra breve rutina previamen¬ 
te publicada en Commodore Maga- 
zine. 

Para terminar con el programa sim¬ 
plemente hay que escribir FIN y Re¬ 
turn. 


GUARDANDO CEROS Y UNOS 

Existe una manera fácil de guardar 
(SAVE) programas en código máqui¬ 
na en el Vic-20 ó el C-64 sin tener que 
utilizar un largo programa, también 
en código máquina. Se trata de teclear 
un par de comandos directos. 

Tenemos un programa depositado 
en una zona de la memoria cuya pri¬ 
mera dirección es P y termina en la 
F. El procedimiento es el siguiente: 

PRINT(P/256 - INT(P256))*256, 
INT(S/256) 

Esto produce dos números que lla¬ 
maremos LP y HP respectivamente. 

Tecleemos a continuación: 

PRINT(F256 - 
INT(F/256))*256,INT(F/256) 
que imprime otros dos números que 
llamaremos LF y HF. 

Ahora entramos en la parte del tru¬ 
co que guarda en almacenamiento 
magnético el programa: 

POKE 43,LP:POKE 44,HP:POKE 
45,LF:POKE 46,HF:SAVE «nombre 
del programa» 


10 REM*#P0NER MRVUSCULRS/MINUSCULñS 
12 REM#*CON TECLRS CBM+SHIFT 
20 0PEN3,4,7 

30 PRINT#3, CHR$(15)"MflQIJINfl DE ESCRIBIR' 1 ; CHR$<13) 
40 INPUT X$ 

50 IF X$»"FIN" THEN GOTO 100 
60 PRINT#3,XS 
70 X$=" " 

80 GOTO 40 
100 PRINT#3 
110 CLQSE3 
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Obviamente, las variables LP, HP, 
LF, HF que aparecen en esta línea son 
los números que hemos calculado pre¬ 
viamente. La línea está pensada para 
trabajar con cassette ; pero si utiliza¬ 
mos la unidad de diskette la sintaxis 
es la tradicionalmente utilizada con 
SAVE para guardar programas. 

El comando VERIFY también pue¬ 
de utilizarse para verificar que el pro¬ 
grama ha sido almacenado correcta¬ 
mente. Para volver al funcionamien¬ 
to normal se utilizará SYS 64824 pa¬ 
ra el Vic-20 ó SYS 64738 para el C-64. 


FILTROS PARA ENTRADAS 

Cuando desarrollamos programas 
en los que se deben introducir datos 
desde el teclado es conveniente esta¬ 
blecer una serie de controles. De otra 
manera es posible que el usuario pue¬ 


da teclear un tipo de datos no idóneo. 
El filtro es bastante sencillo y evita 
que el programa se detenga por estar 
trabajando con algo que no espera. 

Por ejemplo, si el programa nece¬ 
sitase que en un momento dado se 
presione la tecla A, no continuando 
a menos que así se haga, completa¬ 
ríamos la línea de la siguiente forma: 

100 INPUT A$:IF A$ < > “A” then 


100, siendo 100 un número de línea 
supuesto. 

Si, por ejemplo, quisiéramos hacer 
una introducción de datos numéricos 
comprendidos entre 15 y 20, la línea 
se escribiría: 

IF A ^ 15 OR A > 20 THEN 100 

Por supuesto que hay variantes, pe¬ 
ro ésas serán ideadas y perfecciona¬ 
das por el lector. 



ELECTRO AFICIÓN 

COMPUTER 

C/VI LL ARR0EL.104 BARCELONA-11 TLF. 2 537 600- 09 

y también ELECTRO AFICION en C/Gran Vía de les Cort Catalanes, 559.08011 BARCELONA - Tel. 254 23 19 


IMPRESORAS 


PRODUCTOS COMMODORE 

Commodore-64 
Disk Drive 1541 
Cassette CN2 

Monitor Color 1701 ( 

Impresora MPS-801 ' 

Commodore 64SX Portable 
VIC-20 


SINCLAIR 

Spectrum 48K 
Impresora Seikosha 
con interface 
Microdrive 

Teclado DK’TRONICS 
LAPIZ óptico 
Amplificador Sonido 


SOFTWARE 


Contabilidad 
Contabilidad Doméstica 
Control de Stocks 
Mailing y Etiquetas 
Ficheros 
Base de Datos 
Gran variedad de Juegos 
Programas Educativos 



;inczlaii“ 




Seikosha 

Star 

Epson 

NewPrint 

C. Itoh 

Riteman 


GAMA COMPLETA DE ACCESORIOS 

Interfaces 

Joysticks 

Sintetizadores de voz \\ 

Cassettes 

Cintas 

Discos 

Base de Datos i 

Easy Script { 

Monitores \ 

Interpod 
Cables 

Procesador de Textos 
Libros 


ORDENADORES DE GESTION 


Pal Computer 
Commodore 
Apple 
Amstrad 









SUPERVIVENCIA 


Un juego para que vivas la aventura con tu C-64 


Volabas con tu avioneta sobre una 
zona de selva tropical, en un paisaje 
dominado por el intenso color verde 
de la vegetación. De repente, un sú¬ 
bito destello de luz, un brillante pero 
breve destello proveniente de un pe¬ 
queño claro de la jungla, capta tu 
atención. Irresistiblemente decides 
acercarte a investigar y comienzas a 
volar en círculos sobre la zona hasta 
que divisas un claro, una explanada 
de amplitud suficiente como para in¬ 
tentar aterrizar. ¿Cuál será el origen 
del misterioso destello de luz?. 


A medida que te acercas al claro te 
das cuenta de que la visibilidad em¬ 
peora, una extraña niebla envuelve tu 
aparato. Intentas remontarte pero es 
demasiado tarde, algo ha rozado el ala 
de la avioneta y... 

Cuando comienzas a recuperar el 
sentido y las ideas van ordenándose 
en tu cabeza, te das cuenta de que es¬ 
tás encima del panel de mandos, ma¬ 
gullado, dolorido, pero milagrosa¬ 
mente entero y con todos los huesos 
en su sitio. 

Después de forcejear durante un ra¬ 


to consigues salir de la cabina y te 
quedas de pie, en la jungla y contem¬ 
plando tu maltrecha avioneta. Los da¬ 
ños son de consideración, ni pensar 
en poder arreglarlos, vas a necesitar 
ayuda. Lo primero que haces es com¬ 
probar si la radio sigue funcionando. 
Después de unos cuantos intentos 
consigues enlazar con una base aérea. 
Realmente parece que estás de suerte. 

Explicada tu situación, te contestan 
que te quedes donde estás, ya que van 
a enviar una patrulla de ayuda a bus¬ 
carte. O.K. Todo marcha bien. Quizá 
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Rutinas de supervivencia mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 


Lo que sigue son unas notas explicando cada una de las rutinas de esta primera parte de SUPERVIVENCIA. 
Cada una de las rutinas está destinada a una misión concreta. Muchas de ellas han sido nombradas con el verbo 
que las hace entrar en funcionamiento, por ejemplo «abrir» o «beber», lo cual puede ser de gran ayuda para los 
que no sepan con qué palabras deben ir avanzando por la jungla. 


2-6 _ Inicialización de las principales variables del juego. Estas variables van a controlar la situación del 

jugador a través del juego, el número de objetos que lleva consigo, etc. 

8-28 - Subrutina llamada siempre que el ordenador espera un comando. Es llevada a cabo una limpieza de 

cadenas de caracteres no utilizadas (garbage colection). Se imprime el mensaje en rojo «AHORA que» 
y se llama a otra subrutina que permite la entrada del comando en sí. Divide lo introducido en nombre 
y verbo y pasa a comprobar ambos en el vocabulario del programa. 

30-46 _ Se imprime el asterisco de preparado y tiene lugar la entrada y verificación del comando del jugador. 

48-76 _ Esta subrutina examina la posición del jugador a través del juego, ajusta los objetos e imprime el 

mensaje adecuado a la ubicación. 

78-90 _ Subrutina llamada desde las rutinas de SAVE o LOAD y que permite saber si está trabajando con 

cassette o diskette, seleccionando el número de dispositivo adecuado. 

92-98 _ Comienzo del juego. 


1 REM+**SUPERVIVENOIfl**** 

2 CLR 

4 CP"2 • PD=0 : ZZ=1 : CH=0 : CL=® : BG=© : Pñ~0 : BQ :: =9 -.GR-0 : BT-Ü ÜM"Ü • HE=0 : BI=0 PH-Ü 
6 RN= í 0ü Wñ=0 : BM=8 : ÜN--9 : GL”0 ; MU=0 : TM=© : C$=CHR$ (13) G0TÜQ2 

8 MZ-FRE 8 > : PRINT : PRINT" Mttfr ¡P .* QUE “'S", •' G0SUB38 PRI NT" m" 

10 N0$="":VB$="":VB=0 ; Nü=0 

12 U>LEN < CM* > : FORI ~ 1TOLC : IFM1I»* < CM*, 1, 1 > O" " THENVBÍ-^VBÍ+M I B* < CM*, 1, 1 > : NEKT 
14 V1 *=VB$ ■ VB*~LEFT* < V1 *, 3> • FOR I = 1TONV I FVB* < I > ""VBÍTHENVE” I : GOTO 13 
16 NEMT 


20 NÜ*=R IGHT* < CM*, LEN < CM* > -1.LEN (V1 $ > > 

22 N1 $=N0$ : N0Í=LEFT$ < N0$, 3> : FOR I^ í TQNN '• IFNOÍ=Nüí < I > THEN23 
24 MENTI 
26 NO=0 : RETURN 
28 N0=I : RETURN 
30 Cflf* 1 ' “ 

32 PRINT":fiS M , 

34 GETZT : IFZ$=""THEN34 

36 Z=ñSC(ZT>•IFZ>35THEN34 

38 ZL-LEN < CN$ >:IFZL>27THEN42 

40 I FZ>31 THENCr , 1$=CM$+Z$ ■ PR INTZÍ; : G0T032 

42 IFZ=13RNBZLTHENPRINT" T ■RETURN 

44 IFZ=20flNDZLTHENCM$=LEFT$<CMÍ,ZL-í >:PRINTZT; 

46 GOTO32 
48 PRINT"Zlar 


—piensas— lo mejor sea descansar 
hasta que vengan a por mí. Pero des¬ 
pués vuelve a tu memoria el misterio¬ 
so destello de luz y algo dentro de ti 
te obliga a levantarte. Desde luego 
—te dices— esto hay que investi¬ 
garlo... 

Así comienza esta aventura en BA¬ 
SIC para el C-64. Si quieres desvelar 
los misterios que encierra la jungla, 
lo que tienes que hacer es empezar a 
teclear el programa. No seas impa¬ 
ciente, ya que hasta el mes que viene 
no podrás acabar de teclearlo y em¬ 


pezar a jugar. ¿Por qué?, pues porque 
las dimensiones de este programa nos 
han decidido a publicarlo en dos par¬ 
tes, la primera de las cuales es ésta que 
lees, mientras que la segunda podrás 
encontrarla en el próximo número de 
Commodore Magazine. 

El juego en sí es un juego de aven¬ 
turas en el que tendrás que ingeniár¬ 
telas para sobrevivir. Para ello tendrás 
que decirle al ordenador, en todo mo¬ 
mento, qué es lo que. quieres hacer, y 
tienes que decírselo escribiendo frases 
en castellano, del tipo «VE NORTE» 


o «COGE CUERDA» (algo sencillo, 
parecido al lenguaje de los indios 
Sioux). 

De este modo irás avanzando por 
la jungla, descubriendo misterios 
y evitando peligros, y con un impor¬ 
tante objetivo, sobrevivir, evitando un 
súbito y desagradable encuentro con 
la muerte. 

No te entretenemos más, sabemos 
que estás ansioso por empezar a te¬ 
clear, así que adelante. ¡Que tengas 
suerte! La vas a necesitar. 


mrnoc 

Juyuya 


nodora 1 -, 

zlruB- I / 
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Rutinas de supervivencia 


100 _ 

102-106. 

108-112. 

114-854 

114-120. 

122-128 

130 _ 

132-140. 

142-144. 

146-178. 


- Si el programa tropieza o se pulsa por error la tecla RUN/STOP esta línea permite recomenzar el jue¬ 
go escribiendo un GOTO. 

■ Llama a la subrutina para la entrada de comandos e imprime mensajes cuando el comando no es 
comprendido. 

.Dirige el flujo del programa hacia una subrutina apropiada, según el comando introducido, que se 
encarga del verbo. 

. Esta parte del programa cubre el conjunto de rutinas de los verbos. Estas rutinas son examinadas te¬ 
niendo en cuenta tanto el verbo, como el nombre, la ubicación del jugador, los objetos que lleva consi¬ 
go y cualquier otro factor relevante. Vamos a examinar cada una de estas rutinas con más detalle. 
Rutina de ABANDONAR. Al abandonar el juego se llama a esta rutina que permite guardar el juego 
en un punto determinado para proseguir, más adelante, a partir de dicho punto. 

Rutina de AYUDA. Llamada cada vez que el jugador está perdido y solicita ayuda del ordenador. 
Rutina de REA ISA R. Lo que hace es saltar a la rutina que imprime mensajes según la ubicación. 

Rutina de INVENTARIO. Si la variable relevante de dentro de la matriz entera tiene el valor de _ 1, 

entonces el objeto concreto está en tu posesión. Esta rutina permite conocer qué es lo que llevas enci¬ 
ma, en cualquier momento del juego. 

Rutina de PUNTOS. Si solamente has llegado a la rutina 21 es que no has estado intentándolo con 
el suficiente interés. 

Rutina de SOLTAR. Evita duplicaciones (que cojas dos veces el mismo objeto, por ejemplo), com¬ 
prueba que tienes el objeto y llama a la acción apropiada para dejar caer determinados objetos en 






iHSKEíÉiiSiÉg 




5y IFCP<240RCP>56THENPL'i=8 ■ G0T056 

52 IF<CP>49ANDCP<56>ANDOBJÍ<39>O— 1THENPRIMT"*IN UN BOTE TE HfiS AHOGADO."=GOTO130 
6 

54 IF0B5¿<23)0-1 THENPD* 1 : PRINTPDí : POKE53280,11 ■ P0KE532A1 • 12 : RETI IRN 

56 PRINT" STAS ";P$(CP> ' 

57 IFCP=84THENG0T01312 

58 IFPH-0AHDCP»aOTHEHPRIUTPHÍ 

60 IFCF-1SANBGEZ < 18 >0-1 THENPR INTUF'I: GOSUB1290 : G0T098 
62 I FCP=62THENG0T01386 

64 

65 IFCF'=81ÜRCF-82THENG0SUB1298: r.p=ñ:T: rotara 

66 VB$=":njEDES VER - 

68 I FPy. (. 29 , 2 > fl N D C F - 2 9 T H EN O B '/, < 29 > -29 
70 IFPK <30,3>ANDCP=30THENOB5i<29> =30 

if- F OR 1 = 1 TOLO •' IF OBK í I > =CPANDOB$ (I > O "" THENPR INTVETOB f (. I > : VBÍ="" 

<■ 4 NEñT I 
76 RETURN 


78 PRINT"Iftr’STAS UTILIZANDO CINTA ? <.<$// 


80 GETñí:IFA$=""THEN80 
82 IFA$="S"THEN86 
84 DEV=8=RETURN 

86 PRINT "INTRODUCE LA CINTA V PULSA ar - » - »—F1 " 

88 GETAí:IFA$<>" "THEN83 
90 DE'v'= 1 RETURN 

92 PR I NT" 7J"CHRÍ (14 > ■ P0KE53288.. 5: P0KE53281 .• 7 
94 F'RíNT"ÍMfIítf>99íí~SPERR UN FTiCn A QUE flE ORIENTE" 

96 00SUB876 
98 G0SUB48 

100 IF <CP C240RCP:: 56 > OR (OBZ (23 > =-1OROBZ < 23 > =CP > THENPOKE53280 • 5: priREHAPA 1.7 
102 G0SUB8 ' 

104 IFVE>5ANDN0í=" "THENPRINTV1 $; " « i p" : nriTO 1 m 
186 IF V1 $0" " AMDVE=@THENPRI NT" , 0 ENTI ENDO," V1 $: GOTO 100 

i io - i - i 1 22 ■' 130 •' 133 •' 1 42 .■ 146,188,232,260,264,268,316,334,350, 360, 37 

110 UN VE-16UUTU380,384,406, 422,478,528,540,550,566,628,636,646,666 

i 12 UNVB-29UUTU678, 698,726, 738, 756, 766, 790,810,830, 846 

114 PR I NT" F. : PRINT "MSI UARDAS EL JUEGA EN ESTE PUNTO"' >'#.■■ .-■■t » 

116 GET ñ$■ IFAt="S"THEN766 
118 IFA$0"N"THEN116 
120 ENE 

122 IFCF-13THENPRINTBAf:GOTO100 
124 IFCF-70THENPRINTGN$:GOTO100 

126 PRINT"!ENGO MEJORES COSAS QUE HACER QUE AYUDARTE CON EL JUEGO i" 

128 PRINT">:AMOS HOMBRE, SIGUE!" GOTO 100 
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SOFTWARE 


PERIFERICOS 


WTWWIa 


PUBLICA CIPRES 


cga ,. rf4ir on pl sector de INFORMATICA PERSONAL.primer fa- 

jjgjmpresa líder en féricos „ programas para ordenadores 

'985 m óír«. d o ::rr;=.«"t»si«t« *•■■ mícr ° in, ° rm ” i '‘ 

ca^ a*oportunidad do incorp.raroo oo lo s, 9 u,.nt.s 



PROGRRMRDORES 

(FULL-TIME) 

I Ref: PFT 


SRRFISTRS 0 
DISEÑADORES V 
MUSICOS 

Ref: GR 


BlRECTOR 

RE PROGRAMAS 

educativos 

L Ref : OPE 


PROGRRMRDORES | 

(PART-TIME) 

Ref: PPT 


COORDINADOR DE 
PROGRAMAS 


TECNICOS 
DE DESARROLLO 

(HARDWARE) 

Ref: TDS 


PROGRRMRDORES | 

(COL ABOR ADORES) 

Ref: PC 


RNRLISTR DE 
JUEGOS 

Ref . AJ 


TECNICOS DE 
mantenimiento 

(HARDWARE) 

Ref: TM 


traductores 

INGLES 

Ref : TR 


COMERCIALES 


Ref . CM 



Todos los puestos,ademas de unas ex 
celentes retribuciones y beneficios, 
contarán con importantes medios pa 
ra el desarrollo de sus funciones. 

Equipos de desarrollo.ordenadores, 

(Sinclair, MSX,Commodore,Apple,Ams 

tred,Spectravideo,etc.) periféricos, 
formación profesional,cursos espe 
cializados,viajes técnicos,etc. 


Es necesario que todos los candidatos 
posean conocimientos de ingles y de 
programaciones! como un notable in 
teres por su desarrollo profesional en 
el sector de la Microinformática. 

Los interesados deben escribir a : 

Avd. Mediterráneo n^9 28007 MADRID 

Exponiendo claramente su expenen 
cia y disponibilidad 







































































determinadas situaciones. Se decrementa la variable de número de objetos zz. 

180-230 - Rutina de IR. Comprueba si eres capaz de irte examinando el estado de determinados indicadores 

(flags). ¿Dispones de los objetos adecuados?, ¿llevas demasiados objetos? y etc. 

260-263 - Rutina de CRUZAR. Ayuda al jugador sobre un obstáculo donde un comando de dirección no lo 

haría. 

264-266 - Rutina de TOMAR. Asume que estás de juerga e ignora el comando , soltándote una frasecita ingeniosa. 

268-314 - Rutina de ABRIR. Si se cumplen todas las condiciones (para ello se examinan una serie de indicado- 

res) la cosa se abre , se quita el bloqueo de la cadena y se cambia la descripción de cualquier ubicación 
u objeto. 

316-322 Rutina de CERRAR. 

334-348 - Rutina de COMER. Llamada cada vez que quieras comer algo. 

350-358 Rutina de ALIMENTAR. Es un poco diferente a la de comer, ya que se trata de dar de comer a al- 

guien o a algo distintos del jugador. 

360-370 Rutina de BEBER. 

372-378 - Rutina de OFRECER. El comando es tomado a broma excepto en una ocasión. 

380-382 - Rutina de BALANCEAR. No es bueno hacerlo en este juego, pero siempre se puede intentar, a ver 

qué pasa. 

384-404 Rutina de CORTAR. 

406-420 - Rutina de TROCEAR. Existe una ligera diferencia con la acción de cortar. Esta asume que eres un 

poco manazas, mientras que cortar implica un cierto grado de entrenamiento. 


130 GOT038 

132 F'RINT " LLEVAS CONT I GÜ GS=0 : ZZ=0 

134 FOR1=1TOLO : IFOBZÍI>=-lTHENPRINT0B*<I >: GS=GS+1 ZZ-ZZ+l 

136 NENT . 

133 IFGS=0THEHPRINT", *~*!" 

140 GOTO100 

142 IFCP<22TH£NPRINT"“1 ,/l f>? #UE DICES 7 '! " : GOTO 100 

144 F'RI NT " LO QUE CUENTA ES COGER COSAS ! " : GOTOlFifi 

146 IFNO=8THEN690 

148 G0SUB8S6 - 

150 IFOE’l < NO > O-1 THENF'RINT " 1 IENES QUE TENERLO PARA SOLTARLO. " GOTO 100 

152 IFN0=2THENPRINT" ,-F ! ¡ RACIAS A “IOS 1 " : POTO174 

154 IFNQ=4GRNÜ=10THENGOTÜ646 

156 IFHOO12THEN162 

158 IFCP038THENPRINTTOI $ : QBK<12 > =0 : OBZ í 1 i > —— 1 0BÍ<6>="UNA MANCHA DE ACEITE" GOT 

0176 

160 I FCF-38THENPR I NTOLÍ : QBZ < 1 2>=8 ■ OB.'l < 11 >=- 1 : 0E$< 6 > = " UN CHARCO DE ACE I TE " : GOTO 1 7 

s 

162 IFNQ=18ANDCP=13THENPRINT " -IELOS ! , UNCA APRENDERAS !" : F'RINTUPÍ : GOSUB1290 

164 IFN0=23THEN0E'; C 23 > =0 : OE'il < 22 ) =CP ZZ=ZZ-1 : G0T098 

166 11- NO=23ANDCP=30THENF'R I NTBR$ : OEM- < 29 > = " UN PUENTE " P% < 23,2 > =30 : P‘¿ < 30 , 3 ) =23 : GOTO 

174 

169 IFCF-73ANDNOO-3THENPRINT " 1 L ,1 L A L A L A " : GOTO 174 

1 . IFCP=78ANDN0=3THENPRINT " ~EF'RISA ! ANTES QUE SE HUNDA! " : PJi<78,0>=80 : Píí<78 . 2)*7 

y • bUTU14 

1 72 IFN0=36THENPRINTMRí : 'QBZ < 36 >=0: GOTO 1 m 

174 ZZ-ZZ-1 : PRINT''r. " 

176 IFN0=12THENN0=6 

178 0BK<N0)=CP : GOTO100 

100 IFNO=0THEN690 

182 IFOBi: í NO ) =- 1 THENF'RINT " -ENCENTRATE , VA LO tienes •'" - GOTO 1 API 

134 G0SUB856 

186 IFOB'i < NO C- CPTHENF'RINT'L 0 SE VE POR AQUI ." : GOTO 108 

188 IF < N0=450RN0=46 > ANDCF-13THENPRINT "<* I TOCAS EL ARBOL MORIRAS 1 " : GOSlIB 1290 

190 I FNQ= 10 R NO =3 5 0RN 0 = 5 0 TH E N PRI NTHAí •' GOTO 100 ' 

132 IFN0 = 420RN0 = 480RN0 = 61 THENF'R INTSCf- : GOTO 100 

194 I FNO=60THENPR I NT " UJUVV ! W3I L A )M»i! L .-! L A :««?>»«! L A ÍIíWHÍilH" : COSI IB 1290 

196 IF NQ=43ORNO=44QRNG=53QRNÜ=52ORN0=7ORNO=33THENPRINTHE$ : GOTO100 

198 - 

200 I !- NU=41URNÜ=470RN0=430RN0=510RN0=550RN0=560RN0=570RN0=34THENPRINTATT : POTO3 00 

202 IFNO=54THENPRINTVO PARECE REAL, VERDAD?" : GOTO100 

204 : 

206 IFN0=2THENPRINT " *GH !": G0T0228 


n n oommodore 

¿U - MjCig¿LZisw_ 
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INFORMATICA Y EDUCACION 
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<IA. ESPECIALIZADA EN E Q UIPOS , SOFTWARF Y SFRVICIOS PARA IA 
ENSEÑANZA TANTO DE INFORMATICA COMO DE OTRAS MATERIAS. ~ 

« DISTRIBUYE CON CONTRATO EN EXCLUSIVA PARA TODA ESPAÑA: 

■ □ Red local ED NET desarrollada por BSP.capazlde conectar hasta 2 50 

puestos al ordenador central, siendo éste un C-64. También permite 
que estos puedan utilizar dispositivos de disco duro o flexible, etc. y 
que desde un punto master se controlen todos y cada uno de los 
puestos-alumno. 

■ □ Contro) de automatismos. Permite, desde el C-64, controlar 

32 parámetros de entrada y otros tantos de salida de la máquina 
o máquinas que se quieran automatizar. 

' D Control de robots. Permite desde el C-64 controlar robots. 

□ Pantalla digital. Maneja el ordenador al tacto de la pantalla. 

□ Paquete Mágico. El profesor puede preparar cualquier asignatura 
para ser enseñada y controlada a través del ordenador. 


¡mmMAricAY 



Teléfono (91)0120 1§|1 

Wkal, Pádtñas, 74 ¡ Síl lífjoaqiái foíguera, 2, bajo 
2$006 Madrid WmWff 
























Frases del listado 

Supervivencia trabaja fundamen¬ 
talmente con frases. Estas frases y pa¬ 
labras van a aparecer escritas tanto en 
mayúsculas como en minúsculas. Pa¬ 
ra ello el programa se pone en modo 
minúsculas y en las sentencias 
PRINT, las letras mayúsculas se te¬ 
clean pulsando al mismo tiempo la le¬ 
tra y la tecla de SHIFT. Es por esta 
razón por lo que en el listado apare¬ 
cen caracteres extraños dentro de las 
sentencias PRINT, y por lo que acom¬ 
pañamos una lista de las instruccio- 
wmmmmmmmmmm 


nes en las que aparecen estos caracte¬ 
res gráficos y la palabra o frase con 
que se obtienen. Por ejemplo la pri¬ 
mera línea es la 8, en la que aparecen 
unos caracteres gráficos y luego la pa¬ 
labra «que» dentro de una sentencia 
PRINT. Pues bien, consultando la lis¬ 
ta se puede ver que los caracteres grá¬ 
ficos corresponden a la palabra 
AHORA, en mayúsculas, esto es pul¬ 
sando todas las teclas de la palabra 
junto con la tecla SHIFT. 


8 

AHORA qué? 

52 

Sin un bote... 

56 

Estas 

66 

Puedes ver... 

78 

Estás utilizando cinta? (S/N) 

86 

Introduce... y pulsa ESPACIO 

94 

Espera... 

104 

QUE? 

106 

No entiendo 

114 

Guardas el juego en este pun¬ 
to? (S/N) 

126 

Tengo... 

128 

Vamos... 


2 1 2 
214 
216 
218 
22 y 

224 
226 
22 ü 
230 
2 3 2 
234 
236 

240 
2 4 2 
244 
246 
248 
250 

•-i ir -i 

254 


" : GOTO 100 

BARRO":0BK<4>*0:PRINT" 


: : ~ZZ~T : GGTÜ228 


I=ZZ-1-GOTO100 


208 IFN0 ~ 4 ANBÜBZ<21><>.1THENPRINT"CMO? EN LA MANOS" 

203 I FNO-4ANB0BZ <21 > =-1 THENOBf < 21 > =" UNA PALETADA BE 
OTO100 

210 I FNOCANBOBZ < 11 > O.1 THENPR I NT" "TI QUE?" : GOTO 108 

I FNOCANDOBZ < 11 > =-1THENOBZ < 11 > =8 : ÜBZ (6 > =8 : N0~ 12 : 

IFNO*17THENPRINTCÜ$:0B$<17>«"UN GIRO COMPAS" : GOTO188 
I FN0=21ANDOBZ < 32 > O-1 THENPR I NTFA$ : GOTO 188 
I FNQ=26THENPR INTDUT : OBZ (26 > =8 : OBZ (27 > CP : GOTO 100 
IF N 0 “ 2 3 A N D ( C P ~ 2 3 Ü R C P- 3 8 ) "1 H E NP RIN T J A T : G 0 T 010 8 
I FN0=37THENGQSUB 1286 *• GOTO 188 
IFNO=39THENPRINTBUT:GOTO188 
IFNÜC8THENPRI NT" /O, NO, /f!'" : GOTO 188 
ZZ=ZZ+1 : IFZZ>5THENPRINT"/Q PUEDES LLEVAR NADA MAS!"H 
ÜEZ<NO>=-1•PRINT" IA ESTA!"■GOTO188 
DI =8 

IFN0<620RN0>69THENPRINT"* DONDE?" : GOTO188 

IF N 0 > 6 5 T H E N N 0=N 0.4 

NO-NO-62 

IFOEZ <16> O.1THENPRINTDI$ : GOTO188 

IFNOANBPDTHENPRINT"IE LO DIJE, HAS CAIDO EN UN POZO!" : GOTO1238. 

I FPK< CP..NO > CTHENPRINT "/O PUEDES IR EN ESA DIRECCION. " DI = 1 
IF<CPCANDNO™1>ANDHEC1THENPRINT" I ODAVIA!" : GOTO188 
IF (CP : = 1 3 AND NO=2) FIN DHG O 2 THENPR I NT " i ODAV IA ! " ■ GOTO 188 
IF(CP= 18 ANDNO-3>ANDMUO1THENPRINT"IODAVIA!"•GOTO 188 
I F< CP =5 6 A NDN 0-8> ANDOBZ <30>=-1 THENPRI NT ""~L BOTE NO PASA DE AQUI - " : G0TC 
IF < CP-ZSANDOBZ <3 > OCR > AND (NOCORNOC > THENPR I NT" I LUGMSMI LUGMMMI LUGNNMI 
OTO1386 

256 IFDICiTHENCPC'Z< CP ,NO >:G0T098 
258 GOTO188 

IF N 0=8 T H E N 6 3 8 

PRINT"❖ NO SER QUE PROYECTES ALGO MU' 

PRINT'HIENSA OTRA COSA!":GOTO188 
IFN0-8THEN638 

GOTO188 


¡188 

LUG. 


2 6 U 
2 6 2 
2 6 3 
264 
266 
268 
278 


ORIGINAL, NO FUNCIONARA! 1 


2 r 4 
276 

-i -? ■-» 

cL i O 
288 
c-Oii. 

284 

286 

233 
238 
232 

234 
236 
238 
388 
382 


PRINT"CASO ESTA 
IFN0CTHEN698 
G0SUB856 

I FN0=47THENPR I NT " 

IFNO=5THENPRINT" /O, 
IF N 0 - 5 6 T H E N 3 Ü 2 
IFN0-7THEN294 
IFN0-57THEN558 
IF N0=330R N 0=3 4 T H E N 
IFNOO38THENPRINT", 
IFD0=1THENPRINT" i A 
IF0B%<28 
PRINT"LA 


ENFERMO?" 


INUTIL!" GOTO188 

❖SI NO LO CONSEGUIRAS! ! 


:GOTO188 


¡12 

O HAV NADA QUE 
ESTA ABIERTA!" 

O-1 THENPR I NT " ~“ÜN QUE?.i 

PUERTA SE ABRE DEJANDO 


ABRIR!" GOTO180 
";GOTO180 

.ijN UNA HORQUILLA?" 

VER UNA HABITACION.' 


ÜOT 0188 
: PK (47,i: 


=49 


0BT-: 


GOT 0188 

IF ÜBZ(2 c 


""UNA PUERTA ABIERTA" DOC GOTO 188 


•• 1 THENPRINT",-0 TIENES CON QUE ABRIR. " : GOTO 188 


oommociore 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 

■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA 
OBTENIENDO TODOS ELLOS 5.000 PTAS 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO ('O M MODO RE MAGAZINE 










132 

138 

142 

144 

150 

152 

162 

169 

170 
174 
182 
186 
188 


Llevas... 

194 

Huuyy! GLUC GLUC GLUC 266 

Acaso... 

NADA 

208 

Como... 

272 

Es... 

PUNTOS? Qué dices? 

210 

En... 

274 

No. Así... 

Lo... 

226 

No, no, NO! 

288 

Con qué? Con... 

Tienes... 

228 

No... 

302 

No... 

Uf! Gracias a Dios! 

230 

Ya... 

324 

Ya... 

Cielos! Nunca... 

234 

A donde 

342 

Beeghhh... 

GLUC GLUC GLUC GLUC 

242 

Te... 

344 

Ummm... 

Deprisa... 

246 

Todavía 

366 

Beug... 

O.K. 

252 

El... 

368 

GLUG...Ahhhh. 

Concéntrate... 

254 

Glug... 

370 

A... 

No- 

262 

A no ser... 

372 

Ofrecer QUE? 

Si... 

263 

Piensa... 

396 

Es... 


304 IFOB5Í<28> =~ 1THENPRIHT"LOS MUELLES BEL CANDABA CEDEN."PA=1 
306 OBí<7)="UNA VERJA CON CflNDñDO" 

308 I FEO - 1 THENPR I NTGAÍ : GR= 1 : P‘A < 58 ,2 > =51 : 0B$ 7 > ="! !Nñ VEP-TR RBI EPTfl " 

310 GOTO100 
312 : 

314 : 

316 IFHO=0THEN630 
318 G Ü S U B 8 5 6 

328 IFN0O7QRNGO38THENPRI NT", O HAV NABA QUE CERRAR!" : GOTO 108 

322 IFN0=7ANBCR=1THENPRINT"LA FUERZA DEL AGUA IMPIDE QUE SE CIERRE." GOTO1O0 

324 IFNQ=7ANDGRO 1 THENPRINT" !A ESTA CERRADA 1 " : GATO 1 fifi 

326 IFN0=3SANDD0OlTHENPRINT" ¡A ESTA CERRADA, VALE?!" : GOTO 100 

328 IFN0=38ANDD0= 1 THENPRINT"LA PUERTA SE CIERRA." : ¿0=0: PZ( 47.1 '>=0 iTB^('3S >=CP 

330 IFDO=0THENOB$<38> = "UNA PUERTA CERRADA" 

332 GOTO108 
334 IFNQ=0THENS9© 

336 IF0E’¿<NO)O-1ANDN0O33THENPRINT "/O TIENES DE ESO.":GOTO100 
338 IFNÜ=37THENGQSUB1286 : GOTO180 

34u IFNO--2THENPRINT"/O RECUERDAS COMO MURIO?" ZZ=ZZ 1 : OEZ(2>=0 G08UB129Q : GOTO1O© 

342 IFN0O33THENPRI NT"! EEGHHH. /O ES BUENA IDEA." : AfiTniAA 
344 PRINT" ,MMMM.. .DELICIOSO." 

346 PRINT"LA ROCA DESAPARECE EN UNA NEBLINA MOSTRANDO UN CAMINO HACIA DELANTE." 

343 UB’Í (. 33 :> =Ü : PZ ( 28, 1) =29 : GOTO 100 
350 IFNÜ=0THEN690 

352 IFNO=37THENGOSUB1286 

354 IFuB2<2)0-1 THENPRINT "AS TIENES NADA QUE LE GUSTE. " GOTO 100 

356 IFN0--52THENPRINTACT P"i < 78,8 >=77 

358 22=22-1 : OB'i < 2 ) =@: GOTO 100 

360 IFNO=0THENPRINT"BEBER QUE?" GOTO180 

d 6 G 0 S U 33 8 5 6 

364 IFH0=6THENPRINT"EH?"GOTO108 

3t'6 IFNU=l2 rHENF'R INI " ¡ EUG...." OB’K 12)=Q ; OB'I(11 }=~1 : GOTO 108 

368 I FNO= 1 ©THENPRINT " ¡ L A «IKi!!l«l L.! «lüMSI L A . íHHHHH. " OB'i < 10> =0: flB2 i 11 =-1: OOT01 
00 

370 PRINT"* VECES RESULTAS TAN ...!!" : GOTO100 

372 IFNO=0THENPRINT" 1TRECER • ,“!?":GOTO188 

374 I F'CF'= 13THENG0SUB1286 ; GOTO 188 

376 IFNO=2ANDCP=70THENNO=52 : OOTO350 

378 PRINT"/O QUIERE ESO!" : GOTO100 

388 IFNO=0THEN690 

382 PRINT "MOR IOS ! ©UE HACES !"•'GOTO 100 
384 IFNO--0THEN690 
386 G0SUB856 

388 IF'OBZ< 19 >O 1AHDOE-; < 24 > O 1 THENPRINT"~0N QUE DIABLOS?" ■ GOTO 100 

IFUPO 13ANDCP046THENPRINT"/O HflV NADA INTERESANTE QUE CORTAR.GOTO 188 
392 1FNU=37THENG0SUB1286 : i SOTO5 00 
394 : 

396 IFN0O42THENPRINT”~S INUTIL!" : OOTO 100 
398 : 

488 : 

402 

404 p;: < 13,2> = 15 : OB'i< 19 > = 13 • 22=22-1 : 0B4 < 19> = " ASTILLAS DE ACERO"' GOTO 108 
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P.V.P. 22.500 Ptas. (disco) 



Elimina variantes y figuras. 
Desarrollo, lista por impresora 
los boletos del patronato o en 
papel continuo para archivo, 
introduciendo el boleto pre¬ 
miado hace el escrutinio de la 
jornada imprimiendo los pre¬ 
mios dándole el número de 
boleto y columna, etc. 

P.V.P. 15.000 Pts. 


Usa el mismo intérprete que el 
Basic del ordenador. Mantiene 
la misma memoria libre y velo¬ 
cidad de ejecución. 
Comandos y mensajes en 
castellano. 

P.V.P. 2.000 Ptas. cinta 
P.V.P. 2.500 Pts. disco 


CONTROL DE ALMACEN 

Controla 1.200 referencias de almacén, en unidades, 
kilos, litros, metros, etc. Stock mínimo. Realiza gestio¬ 
nes de entrada y salida (incluidas devoluciones). Podrá 
hacer altas, bajas, modificaciones y consultas, Proceso 
de Inventario Físico, Inventario a Precio de Costo y a 
Precio de Venta. Etiquetas... 

Le dará en cualquier momento un listado de productos 
sin movimiento. Además tiene unaopción deanotación, 
para los gastos de su empresa, con análisis de rentabili¬ 
dad de su negocio, sin pasar por contabilidad. De fácil 
manejo. TODO EN CASTELLANO. 

P.V.P. en disco 35.000 Pts. 


SAKATI, S.A. Empresa Líder en Soft para COMMODO- 
RE-64, tiene un amplio catálogo de programas, donde 
Vd. encontrará la solución a sus necesidades. 

¡CONSULTENOS! 


Maravilloso juego de 
aventuras. Deberá em¬ 
plear su inteligencia y su 
ingenio. 

P.V.P. 1.500 Ptas. cinta 
P.V.P. 2.000 Ptas. disco 


Zoom-Pascal para CBM-64 
extremadamente rápido. Aña¬ 
de extensiones y funciones 
que lo hacen verdaderamente 
útil. 

P.V.P. 12.000 Pts. 

P.V.P. 12.500 Pts. 


BOLETIN DE PEDIDO 

A enviar a SAKATI, S.A. - Ardemans, 24 - 28028-MADRID 


Cdad. Precio 


□ Talón adjunto 
Fecha: 


□ Contra reembolso 
Firma: 


Código Postal_ 
Provincia_ 




































Software comentado 


PROGRAMA: 

AZTEC CHALLENGE 
TIPO: JUEGO 

DISTRIBUIDOR: ABC SOFT 
ORDENADOR: COMMODORE 64 
CON JOYSTICK 

Cuando se ve este juego por prime¬ 
ra vez el jugador se acuerda inmedia¬ 
tamente de INDIANA JONES. Cual¬ 
quiera de las siete pantallas del juego 
tiene su equivalente (que no quiere de¬ 
cir plagio) en las películas de este nue¬ 
vo Super héroe. El programa es bási¬ 
camente un juego de acción donde se 
necesitan muy buenos reflejos y ha¬ 
bilidad en el manejo del joystick . 

El juego viene presentado en una 
atractiva caja junto con un manual de 
instrucciones muy completo compa¬ 
rado con lo que viene siendo habitual 
en los últimos juegos. Siguiendo las 
instrucciones del manual se procede 
a la carga del programa sin ningún 
problema. Una vez cargado, el progra¬ 
ma deja elegir entre uno y dos juga¬ 
dores y hecha esta elección empieza 
el juego. 

Nuestro objetivo es entrar en la pi¬ 
rámide, atravesarla y salir, evitando 
los peligros que salgan a nuestro pa¬ 
so. Si no lo hacemos así seremos cap¬ 
turados y sacrificados. El juego se 
compone de siete pantallas distintas, 
en cada una de ellas el joystick cum¬ 
ple una misión diferente a la anterior, 
lo que unido a la dificultad que tiene 
el juego en sí, lo convierte en un 
auténtico reto para el jugador avan¬ 



zado (para el jugador novato, puede 
ser una masacre). EN cada pantalla 
se nos presenta en perspectiva una si¬ 
tuación en nuestro recorrido y debe¬ 
mos seguir avanzando mientras evita¬ 
mos los peligros creados por nuestros 
enemigos. 

El primer nivel representa el cami¬ 
no hacia la pirámide. Mientras nues¬ 
tro hombre corre (no se le puede pa¬ 
rar) los aztecas colocados a los lados 
le lanzan flechas que él debe ir evitan¬ 
do agachándose o saltando, depende 
de la altura de la flecha. Aunque pa¬ 
rece extremadamente sencillo el tiem¬ 
po de reacción es muy corto y obli¬ 
gando a reaccionar demasiado rápi¬ 
do, lo que crea muchos errores fata¬ 
les. Además, la pirámide que está si¬ 
tuada al fondo crece demasiado len¬ 
tamente y parece que no vamos a lle¬ 
gar nunca a ella mientras siguen ca¬ 
yendo flechas. 

El segundo nivel nos sitúa ya en las 
escaleras de la pirámide. Mientras va¬ 
mos subiendo empiezan a caer gran¬ 
des rocas capaces de aplastarnos. Mo¬ 
viéndonos rápidamente podemos es¬ 
quivarlas aunque cada vez aumenta el 
número de piedras que caen y, ade¬ 
más, como todo el mundo sabe, las 


escaleras de las pirámides son extre¬ 
madamente largas. 

Las afortunadas personas que lo¬ 
gran subir las escaleras y entran en el 
templo, se encuentran con múltiples 
habitaciones protegidas por diversos 
sistemas. Lanzas que caen del techo, 
agujeros en el suelo, etc. 

Después del templo, y cuando ya 
parece que se ha terminado el sufri¬ 
miento, vienen otros cuatro niveles 
más difíciles si cabe. En la cámara 
central del templo nos encontramos 
con múltiples animales que con su 
simple roce nos matan. Algunos sal¬ 
tan, otros se arrastran, etc. Debemos 
saltar y agacharnos para evitarlos y 
poder salir y atravesar los tres niveles 
que quedan. En éstos nos encontra¬ 
remos con un lago con pirañas, puen¬ 
tes mortales, etc. 

El juego es un auténtico desafío di¬ 
fícil de ganar que necesita tiempo pa¬ 
ra poder dominarlo, no es un juego 
para las personas que se inician, sino 
más bien para los expertos que quie¬ 
ren probar el más difícil todavía. Las 
gráficas son realmente fascinantes y 
el efecto de tres dimensiones está bas¬ 
tante bien conseguido, sobre todo en 
la primera etapa, en la que realmente 
parece que nos acercamos a la pirá- 
mide. _ 

PUNTUACION: 

ADICION: 8 
PRESENTACION: 8 
GRAFICOS: 8 
ACCION: 9 


PROGRAMA: 

BASE DE DATOS-FICHEROS 
TIPO: UTILIDAD 
DISTRIBUIDOR: INDESCOMP 
FORMATO: CINTA 
DE CASSETTE 

ORDENADOR: COMMODORE 64 

Este programa permite al usuario 
la creación de sus propios ficheros y 
el manejo de éstos introduciendo y 
modificando los datos de los mismos. 
También permite el listado de todos 
los datos. 

9B oomrncxiore 

¿O _ McLgjxzJjue. _ 


Una vez cargado el programa se 
muestra un menú de 9 opciones. La 
primera permite la definición de un 
fichero. Cada vez que queramos crear 
un nuevo fichero de datos (por ejem¬ 
plo, los teléfonos de todos nuestros 
amigos) hay que decirle al ordenador 
previamente qué datos hay y de qué 
tipo. Cada dato puede ser de dos ti¬ 
pos: numérico o caracteres. Los da¬ 
tos numéricos (teléfonos, ingresos, 
etc.) pueden tener un máximo de 9 nú¬ 
meros de largo. Los datos del tipo ca¬ 
rácter son aquellos que admiten cual¬ 


quier símbolo que se teclee y no sólo 
los números. La longitud máxima de 
estos campos es de 36. Por cada dato 
distinto que creemos hay que darle 
tres datos: primero se indica el nom¬ 
bre del dato seguido por el tipo y por 
último la longitud. Esta longitud pue¬ 
de ser la máxima pero, naturalmente, 
puede ser menor. Si nos definimos un 
campo que sea el código postal le lla¬ 
maremos «CODIGO» su tipo será 
«N» (numérico) y su longitud será 5, 
ya que con cinco cifras basta para in¬ 
dicar un código postal. El número 
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máximo de datos distintos que admi¬ 
te cada ficha es de 15, si intentamos 
meter más de estos nos encontraremos 
con que el ordenador nos lo rechaza 
y vuelve a pedir el número de cam¬ 
pos. 

La segunda opción nos permite 
cambiar el nombre del fichero (un fi¬ 
chero que se llama «amigos» pode¬ 
mos llamarlo, si se da la situación 
«enemigos»). 

La opción 3, denominada genérica¬ 
mente «buscar» permite la actualiza¬ 
ción de datos del fichero dando altas, 
bajas, modificando fichas, etc. 

Otra opción permite la lectura y 
grabación de datos en el fichero. He¬ 
mos de recordar que si apagamos el 
ordenador los datos que haya en me¬ 
moria se borran, con lo que nuestro 
tichero se va a las nubes si previamen¬ 
te no hemos grabado los datos en la 
cinta. 


Otra opción nos permite buscar 
una ficha específica, indicando el 
campo por el que queremos buscar y 
el dato que buscamos (por ejemplo, 
en el campo «CODIGO» el número 
28015). Si el campo es numérico se 
nos da la opción de sacar los núme¬ 
ros mayores y menores que éste. 

La opción de salida por impresora 
saca un listado de todas las fichas 
(no se puede hacer una selección de 
ellas) eligiendo el usuario los campos 
que quiere que salgan y los que no 
quiere. 

La opción de ordenar realiza, co¬ 
mo su nombre indica, una ordenación 
del fichero por la clave. Esta clave es 
el primer dato que se ha definido y 
sale separado de los demás cuando se 
nos muestra una ficha de modo que 
sea fácilmente visible. 

Aparte de las opciones anteriores 


existe otra que nos indica la memo¬ 
ria libre y una última que hace que el 
programa termine. 

El programa cumple su función 
aunque se hacen notar algunas opcio¬ 
nes (listado selectivo de las fichas, por 
ejemplo). Las instrucciones son cla¬ 
ras aunque están escritas para una 
persona con experiencia y al nuevo 
usuario le puede crear una gran con¬ 
tusión que se hubiera podidd solucio¬ 
nar sencillamente. 


PUNTUACION: 
UTILIDAD: 7 
PRESENTACION: 5 
CLARIDAD: 8 
RAPIDEZ: 4 



Protege tu Commodore con esta 

Uno oferto especio! y exclusivo 
poro nuestros lectores 


Una práctica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 

¡Y que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25% de descuento sobre su precio real 
de venta! 

¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murillo, 377 - 28020-MADRID 

Las existencias son limitadas 
¡No te quedes sin ella! 
















Envíanos la foto de tu ordenador 



MADRID 

Juan José Hernández, de Madrid, 
ha encontrado una interesante solu¬ 
ción en la que se dan la mano lo mo¬ 
derno y lo clásico. Un recio mueble 
castellano que descubrió en un mer¬ 
cado de segunda mano le sirve de so¬ 
porte a su instalación, con la peculia¬ 
ridad de que por tratarse de un escri¬ 
torio, la cortinilla de madera aísla y 
protege el teclado cuando no está en 
uso. En la bandeja que se desliza ha¬ 
cia el exterior está el VIC, quedando 
a la derecha un espacio para escribir. 
En uno de los cajones laterales se 
oculta el cassette. Los cables salen del 
mueble por un orificio practicado en 
la tapa posterior. Una vez cerrado só¬ 
lo queda el monitor en el exterior. 


Continúan llegando a nuestra redacción numerosas muestras 
del ingenio de los commodoreros para ubicar sus 
ordenadores. Cuatro lectores nos presentan esta vez sus 
soluciones con unas fotografías de excelente calidad. ¿Quién 
tiene mejores ideas? Esperamos vuestras cartas. 


Enhorabuena por esta solución lle¬ 
na de buen gusto que dignifica, dán¬ 
dole un toque rabiosamente actual, un 
mueble clásico. 


SABADELL 

Para Pedro, David y Esther Gómez, 
el ordenador es un tema absolutamen¬ 
te familiar. El gusanillo commodore- 
ro les ha atacado en bloque sin dis¬ 
tinguir entre mayores y pequeños. En 
la fotografía que reproducimos a la iz¬ 
quierda y que nos ha sido remitida 
por Pedro Gómez, podemos ver a los 
más jóvenes de la casa en el rincón del 
estudio que su progenitor ha habili¬ 
tado para las numerosas horas del es¬ 
tudio y práctica que todos dedican a 
su máxima afición. Padre e hijos ri¬ 
valizan en ingenio y habilidad al mis¬ 
mo tiempo que se complementan pa¬ 
ra mejorar los programas. Cuentan 
con un VIC-20 y un CBM-64 coloca¬ 
dos sobre una sencilla mesa, mientras 
en una repisa han situado la panta¬ 
lla. 

Estupenda manera de «pensar uni¬ 
dos» que sin duda tendrá beneficio¬ 
sos resultados a la hora de solventar 
futuros conflictos generacionales. 


9Q oommodore 
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REVISTA PARA USUARIOS OE 
ORDENADORES PERSONALES IBM 


CIUDAD_ 

PROVINCIA 


C.P. 


MAGAZINE 


NOMBRE. 
CALLE_ 


Si posee o trabaja con un 
ordenador personal IBM o 
con alguno de sus compati¬ 
bles, usted necesita leer PC 
MAGAZINE. 

Una publicación escri¬ 
ta para gente como 
usted. Es el fruto de 
un acuerdo entre el 
grupo editorial que pu¬ 
blica Ordenador Popular 
y Ziff-Davis Publishing, edi¬ 
tores de PC The Indepen- 
dent Guide for IBM Personal 
Computers, la más vendida 
en los Estados Unidos. 


•»* 


INFODIS 

Bravo Murillo, 377 - 5. Q A 
28020-MADRID 


Desde ahora podrá leer 
los mejores análisis, 
artículos, e informa¬ 
ciones escritas por 
un equipo de profe¬ 
sionales españoles y 
norteamericanos. 

Esté al día con lo que 
ocurre en el mundo de los 
ordenadores personales 
IBM y compatibles. 

Si no encuentra PC MA- 
GAZINE en su quiosco, en¬ 
víenos HOY MISMO este 
cupón. 


_ Z¿ÍL t 

Envíenme al precio de 350 Ptas., el ejemplar N.° 1 de PC Magazine 

El importe lo abonaré: POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA 

DE CREDITO □ m 

American Express □ VisaC InterbankD 

Número de mi tarjeta [ 1 ~| j | ] ~ ]~ ~f~ ]~ [ ¡ | ~¡ |~~| | ] ~T~| [ - y |~ 

Fecha de caducidad_Firma 
















































TARRAGONA 

Angel López Romaní, de Tarrago¬ 
na, es un hombre práctico que ha sa¬ 
bido ganarle la partida al sempiterno 
problema de espacio mediante un in¬ 
teligente sistema móvil. 

A partir de una vieja mesa de tele¬ 
visor y tablas, ha armado un aparato 
en el que el transformador y todo el 
cableado están ubicados en un com¬ 
partimento cerrado, tras el ordenador 
y bajo el monitor. El compartimento 
lleva rejillas para refrigeración, des¬ 
montadas del ventilador de un frigo¬ 
rífico inservible. Cartuchos y amplia¬ 
ciones también van en el comparti¬ 
mento de ventilación. Del «mueble» 
sale un único cable para la toma de 
corriente. 


ALICANTE 

El caso de Vicente Flores Arjente, 
alicantino de Altea, es la excepción 
que confirma la regla pues parece dis¬ 
poner de todos los centímetros cua¬ 
drados necesarios para desplegar su 
Commodore VIC-20. Le deseamos 
que pronto su creciente afición le ha¬ 
ga insuficiente el espacio disponible 
y que los periféricos y accesorios se 
le amontonen por todas partes. Por 
lo pronto vemos que va bien encami¬ 
nado puesto que parece ser un asiduo 
lector de nuestro Commodore Maga- 
zine, si juzgamos por el impresionante 
despliegue que se puede ver en la fo¬ 
tografía. 



/- 

SUSCRIBASE POR TELEFONO 


* más fácil, 

* más cómodo, * más rápido 


J 


Telf. (91) 733 7969 




SUSCRIBASE A 


n/nc 

Mac/. 


ULZlTUS- 



7 días por semana, 

24 lloras a su servicio 
















GUIA PRACTICA 


M 


/MICRO 


HACEMOS FACIL 
LA INFORMATICA 

• SINCLAIR • SPECTRAVIDEO 
•COMMODORE•DRAGON 

• AMSTRAD «APPLE 

• SPERRY UNIVAC 


Modesto Lafuente, 63 
Telf. 253 94 54 

28003 MADRID 

José Ortega y Gasset, 21 
Telf. 411 28 50 
28006 MADRID 

Fuencarral, 100 
Telf. 221 23 62 

28004 MADRID 

Ezequiel González, 28 
Telf. 43 68 65 
40002 SEGOVIA 


Colombia, 3941 
Telf. 458 61 71 
28016 MADRID 

Padre Damián, 18 
Telf. 259 86 13 
28036 MADRID 

Avda. Gaudí, 15 
Telf. 256 19 14 
08015 BARCELONA 

Stuart, 7 
Telf. 891 70 36 
ARANJUEZ (Madrid) 


PARA COMMODORE 64 

SI DESEA TENER COPIA DE 
SEGURIDAD DE SUS JUEGOS O 
PROGRAMAS EN CINTA LO PODRA 
REALIZAR CON EL PROGRAMA 
“COPY-SEGUR”. PRECIO DE LA 
CINTA 2.000 PESETAS. 

ELIJA FORMA DE PAGO: TALON 
BANCARIO LIBRE DE GASTOS. 
CONTRARREEMBOLSO MAS 200 
PESETAS POR GASTOS DE ENVIO. 

PEDIDOS AL APARTADO 9.032 DE VALENCIA 


NOSOTROS NO DEJAMOS MORIR ELVIC-20 

COMPUTER WAR cas. 8K. 1 950 pts 

SUBMARINE COMMANDER cas. 16K. 1.900 pts. 

cartucho 2.800 Dts 

TOWER OF EVIL. cas. 8K. ■, 90 o nts’ 

TANK COMMANDER cas. 8K. •, 900 nts' 

FLIGHT PARK 737 cas. 16K. 900 ^ 

SUPER EXPANDER BASIC cartucho 6 900 pts 

Instrucciones en ca stellano. 

COMMODORE-64 

BEACH HEAD cas. 1.900 pts 

WING COMMANDER cas. 1.900 pts.’ 

SOMMER GAMES cas. 2 800 pts 

DECATHON cas. 2^200 pts! 

ZAXXON cas. 1.950 pts 

Instrucciones en castellano. 

PLAZAS LIBRES PARA SU DISTRIBUCION EN PROVINCIAS 

ASTOC-DATA 

Hardware y Software-Systems 
Sarela de Abajo Santiago de Compostela Tel. 59 95 33 


COMMODORE 64 
SPECTRUM 
CASIO 


PRECIOS INTERESANTES 

CMP 

Arturo Soria, 154 
Tel. 415 93 28 
28043 MADRID 


I COMPARE LOS PRECIOS 

póñsóS 

69^00^ 

COMMODORE 64 
DATASSETTE 

FAST TURBO MENUE 
SOLO FLIBHT 
COLOSSUS CHESS 2.0 
ZAXXON 

69.000 pts. 
12.000 pts. 
8.500 pts. 
3.900 pts. 
2.800 pts. 
2.300 pts. 
98.500 pts. 

MODEM COMPLETO DESDE 

16.000 pts. 

COMMODORE SX-64 


180.000 pts. 

FLOPPY 


63.500 pts. 

COMMODORE 64 


57.500 pts. 

IMPRESORA MP 2080 


63.500 pts. 

PLAZAS LIBRES PARA SU DISTRIBUCION EN PROVINCIAS 

ASTOC-DATA 


Hardware y Software-Systems 

Sarela de Abajo Santiago de Compostela 

Tel. 59 95 33 


UOTMO AVISO—t 


¿Eres aficionado a la programación? 
¿Dominas el código máquina? 

¿Tienes programas originales? 

¿Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 

iNO TE LO PIERDAS! 

Contacta inmeditamente con: 

CIBERCOMP, S. A. 

Tels. (91)20021 00 
(91) 759 22 44 


Especialistas en software para Home Computers, 
asociados con primeras firmas internacionales. 























Aclaración 


Construye 

tuJOYSTICK 


En el artículo «Construye tu joys- 
tick », publicado en el número 8 de 
Commodore Magazine se omitió el 
hilo común en el dibujo correspon¬ 
diente a la realización práctica. De to¬ 
das formas nos imaginamos que 
aquellos que lo hayan realizado se ha¬ 
brán guiado por el esquema original, 
que aparece en la página 10 del ar¬ 
tículo teórico. No obstante, publica¬ 
mos nuevamente el dibujo completo. 



SBtVKW M EJEMPLARES ATRASADOS 



Complete su colección de COMMODORE MAGAZINE. 

A continuación le resumimos el contenido de ios ejemplares aparecidos 
hasta ahora. 


Núm. 1 - 250 Ptas. 

Análisis de la nueva serie 700/Calc result, a fin de 
cuentas/Mas potencia con Victree/Cómo adaptar 
cualquier cassette/Juegos y aplicaciones para 
VIC-20 y CBM 64. 

Núm. 2 - 250 Ptas. 

CBM 64 en profundidad/Superbase 64. 
el ordenador que archiva/juegos, trucos 
y aplicaciones. 

Núm, 3 - 250 Ptas. 

Magic Desk, el despacho en casa/Herramientas 
para el programado/lnterfaces para todos. 


Num. 4 - 250 Ptas. 

El 64 transportable revisado a fondo/lnterface 
RS 232 para el VIC-20/Juegos/Eí fútbol-silla en su 
salón. 

Num. 5 - 250 Ptas. 

Programas, juegos y concurso/Londres: Quinta 
feria Commodore/Basic. versión 4.75. 

Núm. 6 - 250 Ptas. 

El misterio de! Basic/Lápices ópticos para todos 
Concurso, juegos, aplicaciones. 


Corte y envíe este cupón a: COMMODORE MAGAZINE 
Bravo Munllo, 37 7-Tel. 7339Ó62-28020-MADRID 

SERVICIO DE EJEMPLARES ATRASADOS 

Ruego me envíen ¡os siguientes ejemplares atrasados de COMMODORE MAGAZINE 


El importe lo abonaré: 

Contra reembolso □ Adjunto Cheque □ Con mi tarjeta de crédito □ 
American Express □ Visa □ Interbank □ Fecha de caducidad: 

Número de mi tarjeta:.... . j_. _ _ _}_ _ 


NOMBRE_______________ 

DIRECCION ____ 

CIUDAD__ d.P. 

PROVINCIA_ 
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Ha llegado un N° 1 

SAUCER ATTACK 
es realmente 
un JUEGO DISTINTO 



TOMADAS DIRECTAMENTE 
DE UN MONITOR 1702 
COMMODORE 


^SCQgE Jrtttts Ü _ SfflJCEBS o J 


INSUPERABLE CALIDAD AUDIO-VISUAL 

FERRt-moRET/. b. mas cerca de su casa 


Encontrará el juego n.° 1 de U.S.A. ¡SAUCER ATTACK! en la relación de tiendas de 
informática o kioscos que detallamos: 


En BARCELONA 

TELEUNION COMPUTER. C/ Buenos Aires, 57 

NOVO-DIGIT, S. A. Aragón, 472 

ELECTRONICA JOVALL. Gran de San Andrés, 129 

ELECTRO AFICION. Villaroel, 104 

ELECTRONICA VIVAS. Mosén Jacinto Verda- 

guer, 78. Santa Coloma de Gramanet 

RADIO DEFOREST. Viladomat, 105 

Kios Aeropuerto de Barcelona 

Areas Sants Estación Sants Ferrocarriles 

La°Librería, S. A. Avda. Sarria, 2 

Lebreria Artos. Mayor de Sarria, 2 

Leonor Hernández Reina Elisenda, 2 

Librería Bosch Ronda. Universidad, 11 

Ediciones Z. Paseo de Gracia, 19 

Mallorca. Rambla Cataluña, 86 

Libros y revistas BRUGUERA. Rambla Cataluña, 72 

XAPS. Balmes, 244 

ISLA DEL TESORO. Manuel Girona, 42 
MANDRI. Mandri/Cerdanyola 
Calvet. Pza. Núñez de Arce 
Kiosco Canuda Ramblas 

Librería Catalonia. Rda. S. Pedro Fte. Corte Inglés 

Kiosco Vanguardia. Paseo de Gracia 

Kiosco Drugstore. Paseo de Gracia 

Librería Francesa. Paseo de Gracia 

Kiosco LA OCA. Plaza Calvo Sotelo 

Kiosco ZANON. Plaza Calvo Sotelo 

Kiosco Princesa SOFIA. Frente Hotel Princesa Sofía 

Kiosco Intern. Pedralbes P.° Manuel Girona 

Kiosco COCA CASPE 

Kiosco MARTOS. Ramblas 


Kiosco Colón. Ramblas 

Kiosco Carrillo. Baena Diagonal, fte. Corte Inglés 

Kiosco TELE EXPRESS. P.° de Gracia 

Kiósco SOLI. Ramblas Plaza Cataluña, 13 

Kiosco YA. Plaza Cataluña, 13 

Drugstore DAVID. Tuset 

Librería Arcadia. Tuset-Pje. Arcadia 

Kiosco Corte Inglés. Corte Inglés Diagonal 

VIC (BARCELONA) SERVI COMPUT. C/ Moragas, 46 bjs. 

VILAFRANCA DEL PENEDES. RADIO COMPUTER CENTER. 

Crtra. de Igualada, 21 

TARRAGONA. Electrónica RIFE. C/ Ramón y Cajal, 64 
GERONA. REGISCOMPTE, S. A. C/ Emilio Grahit, 17 bis 
LERIDA. TELESA. Doctor Fleming, 53 
NAVARRA-ANDORRA. 2 Avda. Roncesvalles, 8 PAMPLONA 
ZARAGOZA. ADA COMPUTER. P.° Independencia, 24-26 
BILBAO. AYMOSA. Blas de Otero, 45 
SESTAO, BILBAO. C/ Vía Galindo, 2 
SANTIAGO DE COMPOSTELA. TADEL. C/ Mezonzo, 15 
SANTIAGO DE COMPOSTELA. HALT SOFTWARE 
C/ Alférez Provisional, 2 ent. E 

TORRELAVEGA, CANTABRIA. INFORMATICA SIGLO XXI. 

C/ San José M. Pereda, 1 

BURGOS. CENTRO WELCOME. Alejandro 

Rodríguez Valcárcel, 9 

MADRID. ABC INFORMATICA. Zurbano, 91 6- B 
MADRID. KEY INFORMATICA. Embajadores, 90, tienda 
LAS PALMAS DE GRAN CANARIA. Pedro González Melián. 
Rosario, 5, Vegueta 

PALMA DE MALLORCA. DIMEL, S. A. Juan de Cremon, 4 


— TARJETA 64 K RAM. VIC 20 

— TARJETA 40/80 COLUMNAS VIC 20 H 

— TARJETA 80 COLUMNAS COMMODORE-64 ■ jíjjppliííj 

— SLOTS DE EXPANSION (2 Y 5 TARJETAS) ■ ■ 

— EXTENSO SOFTWARE 80 COLUMNAS 

— LA TARJETA 64K RAM ES LA PERFECTA COMBINACION PARA LA 80 COL. 
¡CONVIERTA SU VIC-20 EN UN ORDENADOR SERIO! 


PEDIDOS A: 


FERRE rfnORET /.fl. 


C/ TUSET, 8 08006 BARCELONA 
TEL. (93) 218 02 93 


! 
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Desde Barcelona nos llega FOR¬ 
MULA VIC, para el VIC-20 estándar. 
Su autor es Marcelli Subirana. Como 
es fácil adivinar a partir del título el 
programa tiene que ver con la conduc¬ 
ción de coches, sin embargo, no se tra¬ 
ta de ganar ninguna carrera, sino de 
conducir a la mayor velocidad posi¬ 
ble por una autopista de dos vías y 
con bastante tráfico. El conductor dis¬ 
pone de dos espejos retrovisores que 
le permiten saber si se le acerca algún 
vehículo por detrás. También habrá 
vehículos que se dirijan hacia el con¬ 
ductor en dirección contraria a la que 
éste lleva (realmente es una autopista 


bastante peligrosa). El objetivo del 
conductor es sobrevivir tanto cuanto 
le sea posible y conducir su vehículo 
lo más aprisa que pueda. Para evitar 
estrellarse con los vehículos que se le 
vienen encima, tanto de frente como 
desde atrás, el conductor debe ir cam¬ 
biando de carril. Para ello podrá uti¬ 
lizar las teclas «Z» y «X». Los coches 
se verán representados inicialmente en 
el retrovisor como dos pequeños pun¬ 
tos (los faros). A medida que se apro¬ 
ximen ira aumentado el tamaño de los 
puntos. Después de rebasar al con¬ 
ductor los coches se perderán en la le¬ 
janía. Claro está, que si el conductor 


premiado con 

PESETAS 

no es lo bastante hábil como para 
cambiar a tiempo de carril no habrá 
nadie que pueda evitar una espec¬ 
tacular colisión. 

La velocidad del vehículo puede 
modificarse mediante las teclas Fl, 
F3, F5 y F7. Siempre hay que arran¬ 
car en primera (Fl), pero una vez en 
marcha se puede cambiar directamen¬ 
te de una velocidad a otra cualquie¬ 
ra. F7 es la velocidad más rápida. 

La estructura a grandes rasgos del 
programa es como sigue: 


2-250 

Inicialización y dibu¬ 
jo del coche y de la 
carretera. 

320-330 

Lectura de la tecla de 
arranque (Fl). 

400-460 

Lectura del teclado. 

480-990 

Bucle principal. 

2000-2910 

Rutina de colisión. 

4000-4010 

Rutinas gráficas. 

5000-5080 

Rutinas de record y 
puntuación final. 

6000-7030 

Rutinas gráficas. 

10000-20030 

Rutinas de despedida 
y finalización. 


2 V=1 ; VI3=5 

10 P PRINT"S" 118: P0KE36873 ' 1: POKE650 ' 


15 P0KE36869,242 
j 20 PRINT"«WMíMWmBííW (C) 
30 FORfi=1T019:P0KE7S?ft+ñ 
46 P0KE36863/240 
50 PRINT "173"; 

110 V=2 : PRINT"SDH .■- 

120 PRINT" Ifl mi 
| 130 PRINT" -' 


*UBIRfiNfi TJZO "•FORfl=1Tü1000:NEXT 
.• 32 : FORB=1TO50: NEXTB, fl 
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140 F'R I NT" ttin»»*»»»**»|, " 

150 FRINT"rrji»**»*»H. 


160 PRI NT "»******!. 

170 PRINT"*»***»*I. 

ISO PRI NT "****»*!. 

190 PRINT"»*»*I. 

200 PRINT".1***1. 

210 F'R I NT" k - 

230 F'R I NT" .-, .- s 

240 F'RI NT " I || lií» 

250 F'R I NT " '■-' '-' ■- 

320 GETEÍ : I FB$="■"THEN340 
330 GOTO320 

340 F'R I NT" F’TS. VEL. AUTO " : ñD= 10: POKE36A77,190: VFI = i 

345 GOSUB4010■GOSUB6000 

350 IFRNBÍ0)>.5THENX=í3:V=1:GO TO 370 

360 X~5 

370 F'R i NT" «íftlKSWiiIíífiilMiíIíMS 11 , TAB C X >" a| ni"; 

400 FG=PEEKC203> 

41 0 IF < FG=31ORFG-33 > RNDV02THENPRI NT " ' 1 j TRB < X ); " " : x=5 : v*2: G0T03 

42£i IF<FG=230RFG=26 ) RNDVO1THENPRINT”,TAB < X)" ' X=13:y=l ¡GOTO'T 

430 IFFG=39THENAD=13 : PQKE36877,180 : VEL=1 
440 IFFG=47THEHRD=16 ; P0KE36877,200 : VEL=2 
450 I FFG=55THENRIi= 18: P0KE36877,230: VEL=3 
468 IFFG=63THENRD=19 : P0KE36877,250 : VEL=4 
480 GOSUB4000:GOSUB6000 
490 IFR=1THEN605 

510 H=INT(RND(8>*2>:IFH=0THENH=2 
520 I = INT (. RND<0)#2) = IFI =@THENI =2 
525 L=INTCRND<@>*2 >:IFL=0THENL=2 
530 I FH= 1 ANDRO 1 THENR= 1: GOTO605 
540 GOTO400 

605 U-U+1 : IFLK20-RDTHEN400 ' 

610 IJ=0 : K=K+1 : IFI =2RNDL= 1THEN700 

615 IFL=2flND1=1THEN800 

616 IFL=2RNDI*2THEN900 

620 IFK=1THENPS=7755-POKEPS,43 
630 IFK=2THENP0KEF’S, 32 ='PS=7842 • POKEPS, 108 
640 IFK a 3THENP0KEPS,32:PS=7929■POKEPS,35 
650 IFK=4THENP0KEPS,32=GOSUB7000■IFV=2THEN2000 
660 IFK=5THENGOSUB7010:R=0:PUN=PÜN+10:K=0 
680 GOTO400 

700 IFK=1THENF'S=7725: POKEPS, 46 = POKEPS+1,46 

710 IFK*2THENP0KEPS+1,32:PS=7725:POKEPS,108:POKEPS+2,123 

720 IFK=3THENPS=7725•POKEPS,81■POKEPS+2,81 

725 IFK=4THENIFV=2THEN2000 

730 IFK=4THENP0KEPS,32=POKEPS+2,32:GOSUB7000:PS=8016-22 
740 IFK=5THENGOSUB7010 : PUN=F’UN+15: PS=7929: POKEPS, 35 
760 IFK=6THENP0KEPS,32:PS*7842•POKEPS,108 
770 IFK=7THENP0KEPS, 32 • F'S=7755 = POKEPS, 43 
780 IFK=8THENP0KEPS,32 ; R=0 ; K=0 
790 GÜTO400 
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CO#' 





800 

810 

820 

830 

845 

870 

900 

910 

920 

930 

940 

960 

970 

980 

990 

2000 

2010 

2015 

2016 
2017 
2020 
2030 
2035 
2040 
2050 
2060 
2070 
2100 
2910 
3000 
4000 
4010 
5000 
5020 
5030 
5040 
5050 
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IFk=1THENPS=7757:POKEPS, 4* 

IFK-2THENP0KEPS, 32: PS=?846: POKEF’S, 1 @8 
I FK=3THENP0KEPS > 32 : PS=7935 : POKEPS, 35 
IFK=4THENPQKEPS, 32 : GOSUB7020 : IFV=1THEN2000 
IFK=5THENGOSUB7030:PUN=PUN+10:R=0:k=0 
GOTÜ400 

I FK= 1 THENF'S=77Z’5+17: POKEF'S.. 46 • P0KEP3+1,46 

Íc¡Í = oÍuIÍ1o 2 KEPS+1 '' 32: p S*7725+17: POKEPS, 108: POKEPS+2 
IFK =3THENPo=7725+17 • POKEPS, 81 • POKEPS+2 , 81 

íe£ S 2íuÍu-?-- EPS ' 32: POKEPS+2 >32: GOSUB7020 ■ IFV-1THEN2000 
ÍÉ£"ÍTtft£?^?í 030: PUN-PUN+15 = POKEPS,32:PS*7935:POKEPS 
Ir K =61 HENFUktPS, 32 • PS=7842+4 : POKEPS ■ 108 
IFK.=7THENP0KEPS, 32•PS=7755+2:POKEPS ,43 
_IFK=8THENPÜKEPS> 32: R=0: K>0 

GOTO400 

P0KE36877 , 0 : FOR VU= 1TO100 • NEXT 
P0KE36877,220 

I FV=2THENPR I NT" iíiMíMitíMíMiiMíIíJi i » i R i F. o-" 

I FV= 1THENPRI NT " 

GETRRT$ 

FORLL1=15 Tü 0STEP-1 
FQKE36878 , LL 

FORSF=1T 02•F ORTl¡=1T058:NEXT 

P0KE36879.. 9*LL I+SF 

NEXT 

FORñC=lTO50 : NEXT : NEXT 
PÜKE2687S, 1 - P0KE36877.. 0 
V=2 ; K=0:R=0 

goto!! 879 ' 1 1 0;PRINT ' , ‘ T:VIIÍ “ VID “ 1: I^IB=0THEN5000 

F'R I NT " MUBMiatMRJB]RlíTiraTiTiiTiiiiIllll" y£|_ RETÍ ¡EN 


: R=0 

IF.O-" 


F'R I NT ___ 

IF P U N > R E C T H E N R E C=P U N 
F'R I NT" .lililí] PUNTOS •'"; pi IN 
PRINT"W RECORD: ",;REC 
PRINT'TiMí] OTRft VEZ?” 
GETñS*:IFñS$="N"THEN20800 


M II" VID : RETURN 


/IB=E 


5068 IFRS$0" S " THEN5050 
5070 V=2 : K=0 : R=0 : pi IN=Pl: 

5080 GOTO50 

||0| et■ i?i'i®* iiaiarpUN 

7000 F'RINT"aittWiWISill!IiIíIí!I«iH>Í»Í*j » : RET | irh 

>■' 010 F'R IN] " ÍÍ'il!M!liliIiM!IíMííilB*Íi**| " : RET'IRH 

702ü F'R INT " íí«iMiIiíiIíl!([iM!liHIí>Miiii*|ii|i|iii Vi. " : RETI IRW 
, 030 F'RINT 1 ííil'ilililitililRIsUIililiHJiRRRRRRRRRRR ki ' RETURN 
ÍFK-41 HENFiJkERS.' 32 : GOSUB7020 : IFV=1THEN20@0 


1 0000 
20000 
20001 
20002 
26803 
28004 
28810 
20820 
28830 



F'R I NT " HíJíIíWMíHIK 
F'RINT" X X h R 

F'R I NT” XX RRRRRR 

F'R iNi" x x a a 

F'R I NT " X X a a 


HñRñññ 0Oü0ü0 n ; 

0 O"; 

0 O"; 

0 O"; 

■■ .. 000000 "; 
fÜp ! - 203+1 FOR.T= ITO200: NEXT J, I 

PÓKESetlí t TpRWT»:r Ej6a ' fc -^ 3 * I; ™ J =« T O150-I*5^HEX T .T,I 
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Prepárate a sostener un duro com¬ 
bate contra un galeón pirata, el COR¬ 
SARIO, al que tendrás que perseguir 
y hundir, y que se encuentra navegan¬ 
do por los mares del sur, en las inme¬ 
diaciones de tu barco. Este es el tema 
del juego que nos envía Miquel Cla- 
parols, lector de Commodore Maga- 
zine de Tarragona. El juego ha sido 
diseñado para un C-64. 

Comienza pidiendo un nombre pa¬ 
ra el galeón del jugador (os aconse¬ 
jamos un nombre que suene bien, co¬ 
mo «el terror de los océanos» o «el 
rey de las tempestades», o algo así). 
A continuación aparece en la panta¬ 
lla un inventario sobre el estado de 
vuestro barco. Elementos como el ve¬ 
lamen, el casco y la tripulación apa¬ 
recen con un porcentaje del 10097o, lo 
que quiere decir que están intactos. A 
medida que se desarrolle el combate 
estos porcentajes irán disminuyendo 
indicando los daños que ha sufrido la 
nave. 

Los galeones van a navegar guián¬ 
dose por unas cartas de navegación en 
coordenadas cartesianas (X e Y), sien¬ 
do la posición inicial del barco del ju¬ 
gador de (600,300). A partir de aquí 
comienza la navegación. 

El ordenador pedirá un rumbo. 
Hay que contestar con un valor com¬ 
prendido entre 0 y 360 grados. Enton¬ 
ces veremos aparecer en la pantalla 
varios mensajes indicándonos la ve¬ 
locidad del barco, su nueva posición, 
la posición del corsario, la distancia 
entre ambos y la inclinación de cada 
uno de ellos, expresada en minutos 
(esta inclinación hay que leerla como 
si se tratara de la aguja de los minu¬ 
tos de un reloj). 

Cuando después de cada movi¬ 
miento la posición de los barcos sea 
la adecuada, el ordenador permitirá 
disparar, en el esquema que adjunta¬ 
mos se pueden ver las condiciones ne¬ 
cesarias para poder disparar. Para dis¬ 



parar hay que pulsar la tecla F, mien¬ 
tras que si se prefiere esperar hasta es¬ 
tar más cerca sólo hay que pulsar RE- 
TURN. 

Hay que andarse con cuidado, ya 
que el CORSARIO también dispara¬ 
rá cuando su posición se lo permita, 
y su porcentaje de aciertos será ma¬ 
yor cuanto más cerca esté. 

Si se decide disparar, aparecerá un 
mensaje pidiendo la inclinación del 
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cañón. Seleccionada la inclinación, se 
efectúa el disparo, apareciendo en la 
parte superior de la pantalla dos lí¬ 
neas correspondientes a la altua del 


proyectil y a su distancia al objetivo. 
Si el ángulo de inclinación es muy 
grande o muy pequeño, el disparo irá 
al agua. 


Para hundir al CORSARIO hay 
que darle justo por debajo de la línea 
de flotación. 


El programa tiene una estructura 
bastante complicada, pero que a gran¬ 
des rasgos es como la que adjunta¬ 
mos. 

5-120 Dibujo de presenta¬ 

ción. 

125-150 Inicialización de va¬ 
riables y posiciones de 
los barcos. 

155-165 Entrada del nombre 

del barco. Inicio del 
bucle principal. 


170-200 Estado de los barcos y 

elección de rumbo. 

205-425 Movimiento de los 

barcos y cálculos de 
posiciones. 

430-500 Situación de los bar¬ 

cos después del movi¬ 
miento. 

505-560 Disparo del Corsario. 

565-625 Disparo del jugador. 

630-685 Movimiento de la ba¬ 

la de cañón y daños 
en el Corsario. 


ESQUEMA sobre 
‘‘CORSARIO’’ 


el programa 



5 10 

15 
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A puede disparar (5x,10y) OH 23M 
B no puede disparar (15x,5y) OH 15M 

Una última advertencia, el viento 
siempre procede del Norte. 


r 


r 


5 REM "CORSARIO 
10 F'ÜKE53231,2 
15 PRINT "23" 

23 PRINT" 

25 PRINT" 

30 PRINT" 

35 PRINT" 

40 PRINT" 

45 PRINT" 

50 PRINT" 

55 PRINT" 

60 PRINT" 

65 PRINT" 

70 PRINT" 

75 PRINT" 

80 PRINT" 

85 PRINT" 

90 PRINT" 

95 PRINT" 

100 PRINT 1 
105 PRINT* 

110 PRINT* 

115 PRINT 


PREMIADO CON 



Wc 


r~—~-i i - 
i r 


~i i 


PESETAS 


i r 


r 
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ir 


—i 

t- r - rr i ti i 
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i i —“— 

r 
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’ari 
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120 FGRX=1TO6000:NEXT 
125 P0KE53281 .• 6 
130 PRINT 
135 PRINT"23" 

140 XI=100:VI=300:NN=350 
145 VM= 100 : CM=VM : EM=VM : C J=VM ■' E J=VM : V J=VM 
150 X=600:V=300 

155 INPUT" SWNDICRR EL NOMBRE BE VUE 

Jg pr!n^ sco 5 " : V$ * M velamens: 


STR0 

,: E$= 


BARCO i 
" SUTTR 


"; m 

IPULACIONS; 
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PRINT"CORSfiRIO ; M : F'RINT E$; EN; "X" ■ PRINT V$; VM;" X " : PRINTC$; CM ; " X " 
PRINT 

PR I NT m " • " : PR I NTE$; E J; ” X " •• PR I NTV$; V J; " X " : PR I NT C$ C J ” X " 

PRINT" asHPOS DE "N$ j" : X=" INT (X); VY=" INT (V) 

INPUT " -RUTA ñ SEGUIR.. CAP I TAN?- !i ; CN 
IFCN>360 THEN PRINT "-PERDON?"=GOTO190 
PRINT”-EL TIMON A "CN; ” GRADOS ! :: 

IFCN<40ORCN>320 THEN TF-l-GOTO2Í0 
F0RT=1TG4STEP,2 
I FTP® 1 THENV-V+. 5 

IFONO180THENVN=CN*3/160:GOTO230 
VI«CN-180:VN=(180-VI)*3/250 
A*CCOS (CN*. 0174)) 

B=(SIN(CN*.0174)) 

IFCNO90THEN X=X+(VN*B):V*V-(VN*A):GOTO260 
IFCN>90AND CN<=180 THENX=X+(VN*B):V=V-(VN*A):GOTO260 
IFCN>180 AND CNC=270 THENX=X+(VN*B) : V=V-(VN*A):GOTO260 
IFCN>270 THEN X«X+(VN*B) : V=V-(VN*A) 

PR I NT" > " ; •• NEXT T ; TP-0 ; PR I NT 

PRINT"-VELOCIDAD PROA •"INT(VN*5);"NUDOS" 

SF=0 : DX-INT (XI-X) 

D't'= I NT (VI - V ) 

DS-1NT(SQR((DXT2) + (DV12 ))) 

H=DX:V=DV 

IFDX*0 THENDX-l : IF DV-0THEN DV=1 
A=V/H : B-ATN(A) 

B«INT(B*S7.29578) 

IFH<0ANDV>0THEN B*90+B : GOTO320 

IFHC0ANDVC0THEN B*90+B ; GOTO320 

B«(B+90)+180 

IFSF=1THEN475 

CC=INT(RND(1)+.5) 

IFCC*>0THENCH=45 

CH=-45 

I FDS<NNTHENB as B+CH 
IFB>40THEN360 
B=B+5 : GOT035Ü 
IFB<320THEN375 
B=B-5:GOTO360 
IFDSC50THENB-B+CH 
FORT1=1T04STEP.2 

pr i nt " y " 

IFBO180THENVN=B*3/160: G0T0395 
VI=B-180:VN=(180-VI)*3/250 
A1=(COS(B*.0174)) 

B1=(SIN(B*,0174)) 

I FB<*30THENX 1 *X 1 + (VN*B 1) •' V1 =V 1 - (VN*A1): G0T0425 
IFB>90ANDB<*180THENX1=X1+(VN*B1)•V1=V1-(VN*A1):G0T0425 
IFB> 180 AND BO270THENX 1=X1 + (VN*B 1) : VI =V 1 -< VN*Aí ) : G0T0425 
IFB>270THENX1=X1+(VN*B1) : V1=V1-(VN*A1) 

NEXT TI : TP-0 : PRINT 

PRINT: PRINT n$; m ESTA EN X=" INT (X) ;"/¥*" INT (V); 

PRINT"HA HECHO RUTA A "CN;"GRADOS." 

HN=INT(CN/6) 

PRINT"(ESTA 0 H"HM;" MIÑUTOS)" 

PR I NT : X1 = I NT ( X1) : V1 = I NT (Vi): PR I NT" -EL CORSARIO ESTA EN X- " X1; " /V= " '• 
PRINT"HA HECHO RUTA A"B;"GRADOS" ; CR-B 
HN-INT (CR/6) 

PRINT"<ESTA 0 H"HM;"MIÑUTOS)" 

DX= I NT (X1 -X ) : DV= I NT (V1 -V ) •' SF= 1 : GOTO280 
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475 

435 

496 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

535 

590 

595 

600 

605 

610 

615 

620 

625 

630 

635 

640 

645 

650 

655 

660 

665 

670 

675 

630 

685 


Tfi=RBS<CR-B) : SF=0 

PRINT"-DISTANCIA - ,! DS; "METROS! 

IFCN<45THENCN*CN+1S0 : IF CN>315 THEN CN=CN-180 
I FCN*>B+45ANDCNOB+135QRCNOB-45 ANDCN=>B-135 THENTJ=1: GDTQ5A5 
TJ=0 

F'RINT : IFTA=>45 ANDTAO 135THEN PRINT"TIRO ORDENADOR! ,! ; : F’RIHT: GOTOSIS 
GGTO5S0 

PT= I NT ( 800/ (. DS+ i) > # 10+5 
TT=I NT (. RND < 1) *33+. 5 > 

FORI=1TO100STEP.8 ; PRINT".";■NEXTI 
IFTTOPTTHEN PRINT :: -CARGAS TOCADAS!' : ÜOTO540 
PRINT"FALLO!":NN=NN-45■IFNN<Í00THENNN»200 : GETA$:GQTG56U 
1FT I = ? PT /2HNDTT<=PTTHENPRINT " VELAMEN ESTROPEADO" : VJ=VJ-i0:GOTO560 
I FT 1-_>PT/4RNDTTOPT/2THEN PRI NT " TRIPüLACIOH TOCADA! " : EJ=EJ-10: GOTO560 
IF1 T=/PT/aANDTT<=PT/4THENPRINT"CASCO TOCADO! : C J=C J-10:0070560 
í p íI = ¿ PT /20ANDTTOPT/8THENPRINT "-EUH.NOS HUNDINOS CAPITAN i":END 
IrCJ=0OREJ=0ORVJ=0THEN PRINT'-NUESTRAS CARGAS PERDIDAS"=END 
HEN F’RINT"-PUEDE DISPARAR CAPITAN i": G0T0575 

podemos hacer fuego capitán -get a$- goto i 70 

¡NPUT""; A# : IFA$0"F : 'THEN 680 
PR I NT ’ -DISTANO IA BLANCO'' DS 
PRINT"-ANGULO CANON?" 

INPUT"-";AN 
0=9.8i : V=50 : VV=5 
AN*AN#<3.14/180) 

KN=COS <AH):TN=TflN(AN) 
i- ORXX= 1TG10003TEP3 

VV-1NT<-.5*G*<XXT2)/<VT2 >*<KN T2>+TN*XX) +1 
DC=INT<DS-XX) 

PRINT "TI" 

F'R I NT " DISTRNCIA AL BLANCO : " DC : PR I NT 
F'RINT "ALTURA BALA : "VV-1 
IFVVO0THEH 655 
NEXTXX 

IFBC-04AND DC->0THENPRINT"TOCADO BAJO LA LINEA DE FLOTACION SE HUNDE":END 

IFDi»4 OR DC<-20 THENPRINT" PLAOUF!"; GOTO680 

IFDl:=.>- 5AND DCO0THEN PRINT "CASCO TOCADO ! i ! " : CM=CM-10 : GOTO680 

í P ?C=>-10ANDDC<=-5THEHF'RI NT" TR I PÜLAC ION TOCADA! '•: EM-EM-10: GOTO680 

I FDU* J »-20AND DC<.=- i 0THEN PR I NT " VELfiiTtN TOCADO'': VM-7M-10: GOTO680 

í F C M - 0 O R EN- 0OR V M=0 T H E N F'RINT "-EL ESTA FUERA DE COMBATE!": END 

GtTH$:XX=@:TJ=0:AN*0 : KN=0:VV=5:GOTO170 
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•SOFTWARE ___—— 

‘INCLUIDO! ///IIIII ¡II II \\\ nm 


DISTRIBUIDO POR: 


El teclado Music-64 se conecta 
directamente a su Commodore 64 y 
permite utilizarlo como sintetizador 
monofónico o polifónico con un 
diseño que armoniza perfectamente 
con el computador. 

Se puede disponer de los siguien¬ 
tes instrumentos: 


• Trompeta. • Piano. 

• Brass. • Organo eléctrico 

• Clarinete. • Acordeón. 

• Campanas. • Guitarra. 

• Flauta. • ETC... 

con posibilidad de cambiar las ca¬ 
racterísticas paramétricas de cada 
uno: 


• Ataque. • Sostenimiento. 

• Caída. • Forma de onda. 

• Volumen. • ETC... 

que dotan al Commodore 64 de 
unas increíbles posibilidades mu¬ 
sicales. 



[Didigital s.a 


• COMPONENTES ACTIVOS 

• COMPONENTES PASIVOS 

• CIRCUITOS INTEGRADOS 

• MICRO-CIRCUITOS 

• ORDENADORES PERSONALES 

• HARDWARE 

• SOFTWARE 

• KITS 

• INSTRUMENTACION 

• HERRAMIENTAS 

• BIBLIOTECA TECNICA 

• ETCETERA 

ESPECIALISTAS EN 
VENTA POR CORREO 
LA FORMA MAS COMODA Y 
SEGURA DE RECIBIR EN SU 
PROPIA CASA TODO LO QUE 
NECESITE EN ELECTRONICA 
MAS DE 30.000 PEDIDOS SU¬ 
MINISTRADOS NOS AVALAN 


MUEBLE M-100 

IDEAL PARA TU 
ORDENADOR Y 
ACCESORIOS 


P.V.P. 


13.900 


ptas. 


Gastos de envío, 800 ptas. 


MEDIDAS: 81 cm. Ancho X 79 cm. Alto X 46 cm. Fondo 




TIENDA 

C/ Pilar de Zaragoza, 45 
28028 MADRID 



(91)246 49 90 
246 56 63 



METRO 

Diego de León 
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Sabemos que muchos de vosotros 
os preguntáis, antes de poneros a te¬ 
clear un programa tan largo como és¬ 
te, si al final mercerá la pena o no. 
Nuestro criterio es seleccionar los pro¬ 
gramas según un compromiso entre su 


calidad y su extensión, es decir, que 
cuanto más largo sea un programa, 
más exigente nos volvemos a la hora 
de publicarlo. MODULO ESPACIAL 
cumple estos requisitos. Se trata de un 
juego para el C-64, que nos envía Luis 


Llana desde Madrid, y que consiste 
en hacer aterrizar un módulo espacial 
en una base de la superficies del pla¬ 
neta que más os guste imaginar. Al 
empezar el programa, y después de las 
instrucciones existe la posibilidad de 
elegir entre cuatro bases de aterrizaje 
diferentes, con distinto grado de difi¬ 
cultad y diferente puntuación. El mó¬ 
dulo cae hacia la superficie del pla¬ 
neta atraído por la gravedad. Para fre¬ 
nar su velocidad de caída y dirigirlo 
hacia la base se pueden utilizar tres 
cohetes propulsores, uno de ellos pa¬ 
ra dar impulso vertical, y los otros dos 
para controlar los desplazamientos 
horizontales a derecha e izquierda. Es¬ 
tos propulsores se pueden controlar 
mediante un joystick (en el port 1) o 
mediante las teclas «2», «CTRL» y 
«barra de espacios». 

La fragilidad del módulo obliga a 
que los aterrizajes deban realizarse lo 
más suavemente posible. En la parte 
derecha de la pantalla aparecen unos 
indicadores del nivel de combustible 
y de la velocidad de caída vertical. 
Pues bien, sólo puede aterrizarse a 
salvo cuando la velocidad de caída sea 
inferior a 3, en cualquier otro caso el 


10 
20 
36 
40 
50 
70 
80 
90 
1 00 
1 10 
120 
130 
140 
153 
160 
170 
180 
190 
200 
210 
220 
238 
240 


G0TO480 

PREPHRñ BUCLE F'RICIF'FlL ***** 

IFPF--'o® : ?*?; ?* e: : X*INT<RND<0>#145>+60 : FlB=l •' CN=0 

: tL^THENF rt-oo • F t =6 • UU3UB2830 : PE I NT " sí" PE " Vi Sí " 

¿^f¿Sj£Í N F X -. 33: PV= 10: OOSUB2830 • F'F:INT"8"RE“ 118 ' 

FGkE53¿7y, 0: UL=Ü 

EEíl $$$$$$ BULLE PEINCIPfiL $$$$$$ 

RB=ñ£+.1 : V=V+R£-RE 
X=X+DE-IZ 

IFDE>0ñNDD®0THENDE«DE-0.1 
IFI Z>0ñNDIi=0THEN I Z= IZ-G. 1 
JV=PEEK(56321> 

IF C JV-2390R JV-254 > ñNHFU>0THENGr¡:-;i ¡B:-¡20 

1 1 JV-i¿47fiN¡3FU>0THENGOSUB370 

IFJV-251ñNDFU>0THENGOSUB420 

X 1> -X ; V < i > -V 

IFVa>C0THENV<l)=0 

PÜKEV+21fi 

I FñO2THENPüKES0+24,7 
IFR=2THENPÜKESÜ+24,0 
POKEV+2,X<1):PüKEv+3,VCi> 

1=0 ; D=0:ñ=2 

VE= IN1 ( (1000$ (RB-RR > > /100 •• 
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T.ódulo se destruye al chocar con el 
suelo. 

Otro elemento que no hay que per- 
ier de vista es el indicador de nivel 
del combustible, ya que cuando éste 
>e acabe, no habrá nada que pueda 
evitar la destrucción del módulo, que 
nicia un descenso «en caída libre». 

El programa, aunque largo, no tie¬ 
ne por qué plantear ningún problema 
a la hora de teclearlo, es cuestión de 
lomárselo con calma. Siempre se pue¬ 
den eliminar las sentencias REM o las 
-ecciones de título e instrucciones, pe¬ 
ro teniendo cuidado de no dañar ele¬ 
mentos vitales del programa. 

Adjuntamos la estructura del pro¬ 
grama, aunque esta ya viene definida 


en el listado mediante un conjunto de 
sentencias REM. 



20-70 

Inicialización. 

80-300 

Bucle principal. 

310-470 

Rutinas de movimien¬ 
to del módulo. 

470-620 

Título en caracteres 
gigantes. 

630-770 

Inicialización de spri¬ 
tes y música. 

780-900 

Instrucciones. 

910-1070 

Elección de la base de 
aterrizaje. 

1080-2130 

Bases de aterrizaje. 

2140-2230 

Mensajes del cuadro 
de mandos. 

2240-2360 

Música. 

2370-2820 

Rutinas de aterrizaje 
o explosión. 

2825-2830 

Rutinas de posición 
del módulo. 

2840-3130 

Datas de los diversos 
sprites, músicas y 
efectos de explosión. 


Una última observación. El progra¬ 
ma no controla las posiciones X< 0, 
Y > 0 de los sprites 5, 6 y 7 (llamas 
de los cohetes propulsores) pues de 
hacerlo, el programa pierde velocidad 
y en condiciones normales no es ne¬ 
cesario. Sin embargo, si el módulo es¬ 
tá por encima de la parte superior de 
la pantalla y se hace uso de los pro¬ 
pulsores, puede aparecer el mensaje 
ILLEGAL QUANTITY... Para evitar 
esto se pueden incluir las siguientes lí¬ 
neas. 

332 1FX(2) O THEN X(2) = 0 
336 IFY(2) O THEN Y(2) = 0 
382,386 Lo mismo con X(3) e Y(3) 
442,446 Lo mismo con X(4) e Y(4) 
2590 Sustituir X + 10 por X(l)+10 
e + 1.Y+10 por +1,Y(1)+10 
siendo necesario abreviar al¬ 
gún POKE para que quepa 
toda la línea. 

2620 Sustituir X por X(l) así como 
+ 1,Y por + 1,Y(1). 

2660 Sustituir X + 10 por X(l)+10 
e Y+10 por Y(l)+10. 


PV=22: PX-3 i ; GQSUB2830 : PRI NT" ST* VE “ i i " 
IFFU<0THENFU=0 

PV= 17 : F'X-33 • GÜSUB2830 ; PR I NT 11 SU Fu M fiiá 
ÜL-F’EE K (D32 7 9 > R N B 2 
IFCL-2THENGÜTO2380 
GOTO90 

REM ***** MOVIMIENTO ñRRIBfi ***** 

AR=ñR+.3 

X<2)~X+12 : VC2)=V+38 

P0KEV+10X <2): P0KEV+ i 1V <. 2 ) '■ POKEV+21 > 34 : R=34 ; i 
RETURN 

REM **** MOVIMIENTO DERECHñ ***** 

HE~HE+.4:B=1 

X \ 3 ) =X-10 : V 3 ) -V+6 

PGKEV+12 1 X < 3 ; P0KEV+13 ) V ( 3 ) : POKEV+21.• 66 : A=66 ; r 

RETURN 

REM **** MOVIMIENTO IZQUIERDA ***** 

IZ-IZ+.4 ; 1=1 
X<4 > =X+34 : V<4)=V+7 
IFX ( 4;»>255THENX (4) -200 

P0KEV+ i 4 .< X ‘i. 4 ) ; P0KEV+15 .• V ( 4 ) : FÜKEV+21 .• i 30 ; A= i 31 
RETURN 

REM ** ROTULO -'MODULO ESPACIAL" ** 

PGKE53280, 7: PÜKE53281, 7 
PRINT !! ZDSie!li!K' ! 

pr i nt : s a ■ s ■ 3 » a ■ as su as 
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Col* 


caíS° 


510 

520 

530 

540 

550 

560 

570 

580 

530 

600 

610 

620 

630 

640 

650 

660 

670 

680 

630 

700 

710 

720 

730 

740 

750 

760 

770 

780 

730 

800 

810 

820 

830 

840 

850 

860 

873 

880 

830 

300 

310 

320 

330 

340 

350 

360 

370 

380 

333 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 


PRINT" a 
PRINT" Sí 
PRINT” a 
PRINT” a 
PRINT”*»" 
PRINT” 
PRINT” 
PRINT” 
PRINT” 
PRINT' 


aaa 

a ■ a 

a a 
a a 


a 

a 

a 

a 


a a ¡a m 
a a a a 
a a a a 
a a a 


a a a 
a 


■ a a a 
a a a a a a 
a a a a a a 
«a a a 


a a 

a a 
a 2 


a i” 
a w 


a 

a a 
a 

a a 
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a a 
a a 

a a 

i a 


a 


a 


■ a ■ 

a ■” 


=53248 


a a aa aa a a aaaa 

aaa aa a a a a aaaa a ■ 
a a aaa aaaa aaa a aa 
aaa aa aaa aaa 

aa aaa aa aaa aaaaa aaa ■■ 

PRI NT" WWW ¡UGRAF ICOS.... SLUIS LLANA ESPRRCIA ” 

PRINT"» ACCION. «LUIS F. LLñNfl DIRZ” 

REM **** INICIAL IZA 3PRITES **** 

POKE2040,2o1:POKt.2041,252:POKE2045,253:PÜKE2046,254:P0KE2647,255: 
RESTORE ; FORI = Í6064 i 016126 ; RERBA : FOKEI,fl:NEXT 
r UR1 = 16128T016130:REBLA : POKEI,R:NEXT 
FORI=16132T016254:RERLR:POKEI,R : NEXT 
FÜRI = í 6256T016281:RERLR:POKEI,R:NEXT 
FORI=16282T016318:POKEI,0:NEXT 
FOR1=16320TO16344:RERLR:POKEI,R:NEXT 

FOR 1 = 163451*016382 : POKEI .■ 0 • NEXT : V*53243 : FU=700: PR=0: ñ0*54272 
POKEV+28,225 :FOKlV+37,8:PQKEV+38,2:P0KEV+2S,2:FGKEV+23,2 

: P0KEV+I ' 12 : : PüKtV+33.* 7 : PÜKEV+44, 7 : FÜKEV+45,7 : POKEV+46,7 

RtN ***** iNICIflLIZfl MUSICA ****** 

DIMRFÍ22),BF(22),Lü(22>,Al<14>, Bí(14), Li < I> 

FURI = 1T022•READAF<I>,EF(I>,LU <I):NEXT 
FOR I = 1TO14 : RERLR 1(1). E1 (I).. L1 f I) : NEXT 
REM ******* INSTROCIONES ******* 

FRIN1 "Z573" ; POKt.53280.- 6 : F0KE53281 • f> 

PRINT" EL MODULO HR ENTRALO EN”EL CAMPO” 

PRINT ".«DE ATRACCION LE UN LEJANO PLANETA, ,! 

PRIN1 '«» ENCItNDE EL MOTOR INFERIOR O UNO" 

PRINT"«DE LOS DOS LATERALES DEL MODULO PARA” 

PRINT"«INTENiflRRTERRIZAR, " 

PRINT”»» LR VtLOCILAD LE CAIDA NO PUEDE SER” 


PRINT”«SUPERIOR R LOS 
PRINT"«LOGRAR RTERRIZAR 
P RIN T' : «« USA J O V S 

PRINT"»» a PULSA BARRA 

GtTR$ ; 11- A$0 !: i! GOTO3A0 
REM ******** ELEGIR BASE ********* 

PRiNr;TaBj«« bases donde poder aterrizar- 


Mt.TR 0 ó/6 EüUNLO PARH 
CORRECT AMENTE. 

TICK O JECLALÜ." 

ESPACIADORA : 


: P0Kcd3281 .• 6 • PÜKE53280, 6 


PRINT”»» 
PRINT"» - 
PRINT”.» - 
PRINT"» - 
PRINT"»» 
PRINT"» 
PRINT"WWW 


- a i a fácil 
¡3 2 a COMPLICADA 
a 3 a difícil 

a 4 ■ MUY DIFICIL 
TU TURNO ACABA SI 


- 1060 PUNTOS. 

- 2000 PUNTOS." 

- 400G PUNTOS. 

= 8000 PUNTOS. 
SE ESTRElLA" 


POKEI38.. WAIT138.. 1 
GETX$ 

IFX$= !! 1 "THENPU=1000 
I FX$= "2"THENPU=2000 
IFX$="3"THENPU=4000 
IFX$="4"THENPU=8000 
GOTO1020 


EL MODULO O SE AGOTA EL FliEL 
a SELECCIONA UNA BASE (i/4 


GOTO1030 
GOTOi340 
GOTOi530 
GOTO1840 
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1080 

REM **** BASE 1 **** 




O | 

1080 

GOSUB2090 




c , 

1100 

PRINT"H ’WSPCf^cO" ia 

1! • 




1110 

PRINT"3 sr"SPC<28>" 13 

•: • 




1120 

PRINT”a ■"SFC(23)” ia 

>: • 




1130 

PRINT"a TB"SPC<28)"Sr 

• I • 




1140 

PRINT"a Si "SPC<27) ,, a 

II • 



c 

1150 

PRINT"a Hr"SPC<27) "SI 

i: • 



Q 

1160 

print” a ■ ar 

la 

:i • 

( i 

O I 

1170 

PRINT”a ts ar a 

üjjj 

a 


0 1 

1180 

print” a » a 

s 

a 

«1 ; 

o | 

1190 

print” a ■ ^a 

'W 

w 

II j 

C 1 

1200 

print” a w a 


w 

¡: • 

C I 

1210 

print” a ■ ai 

TI 

^a 

ii • 

,i 

r\ ' 

1220 

print” a 'm la 

T¡a 

ar 

II • 

.» 

0 ' 

1230 

print” a ■ a 


s» ar 

ii • 

o ! 

1240 

print” a w a 



1! • 

o 1 

1250 

print” a w ia 



j: • 

0 l 

1260 

print a ar 



n \ 

0 

1270 

print” a ■ ^a 



ti • 

0 

1280 

print” a m ai 



1! • 

o 1 

1290 

print” a ar 



M • 

o 1 

1300 

PRINT” a i] ik 



8"; 

o 

1310 

GÜSUB2150 




O I 

1320 

GOTO 2250 




o 

1330 

REM ***** BASE 2 ***** 




o 

1340 

GOSUB2030 




o 1 

1350 

print" a !"SPC<30:i"a 

’l • 



o I 

1360 

PRINT" a B"SPC<29J”Sr 




o 

1370 

PRINT" a TH"SPC<28>"a 




O 1 

1380 

print" a w' "spc< 23>"_ar susr 


ii • 


0 

1330 

print" a ■"SPca7)"ír -m-ir 


1! • \ 

J 


0 1 

1400 

print" a ’vspcaera 




0 1 

1410 

print" a ® w ~m. 

a 


•• • 

o I 

1420 

print" a tü ar ■ 

^a 


t:. • 

0 I 

1430 

PRINT"a w 

-a 


” .» 


1440 

1450 

1460 

1470 

1480 

1480 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1580 

1600 

1610 

1620 

1630 

1640 


K¡ 

m 

m 

n 

»» 


PRINT"a 
PRINT”a 
PRINT" a 
PRINT”a 
PRINT”a 
PRINT”a 
PRINT"a 
PRINT”a 
PRINT”a 
PRINT” a ^ 

PRINT”a 
PRINT”a 
GÜSUB2150 
GOTO 2250 

REM ***** BftSE 3 ***** 
GÜSUE2030 

PRINT”a S"SPC<29)" ia 
PRINT” a 1 ,, SPC<29)" la 
PRINT”a ^■”SPC(29) ,, a 
PRINT”a sr"SPC<26)”ar 
PRINT” a ■ l, 8PCC28) ,, ai 


a 

ría 

¿i 

a 

aa 

la 

a 

a 

m 

ar 

Ü 


i a 
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1380 

1330 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2030 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2130 

2200 

2210 

2220 

2230 

2240 

2250 


'3 

'a 

*a 

'a 

'a 


■a 

*a 

'a 

’a 

'a 


***** 


, SFC<30> ,, a M 

S” SPC(28)" ia 
aTSPC<27>” ia 

a»- ar ai ¡sr-’si 
ai 


M" 


PRIHT' 

PRINT' 

PRINT 1 
PRINT’ 

PRINT’ 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT"a I 
PRINT"a í 
PRINT"a 1 
PRINT"a 
GOSUB2150 
GOTO 2250 
REM ***** 

GOSUB2030 
PRINT"3 
PRINT"a 
PRINT"a 
PRINT" 

PRINT’ 

PRINT’ 

PRINT’ 

PRINT’ 

PRINT"a 
PRINT"3 
PRINT"a 
PRINT’ 

PRINT’ 

PRINT 
PRINT 
PRINT’ 

PRINT"a 
PRINT"a 
PRINT"a 
PRINT"a 
PRINT"a 
GOSUB2150 
GOTO 2250 

REM ** BRSES <4 PRIMERAS LINEAS) ** 
PR I NT" n¡" ; : POKE53280 , 6: PQKE53281 , 0 
PRINTTAB(32)"a ITi ¡i»; 

PRINTSPC(32) " 3 173 "X$" i¡"; 

PR I NT’’SU" SPCC 30 ) !, ar ffi i¡“ 

PRINT"a i"SPC<30)"a 
REM ******** MENSAJES ******** 
PRINT"MMMM"SPC<32>"Sn PUNTOS ’ 
pr i nt " raro" spc < 32)" ¡sn record m 

PR INT" WWW" SPC< 33 ) " aik-" ; 

PRINT ,, WW"SPC(32)" 5H FUEL " ; 

PRINT"W*WW"SPC<31)"SH V. CAIDA ’ 

PR I NT SPC < 35)" iOUl/SG." 

PÜKE1383,160:P0KE56255, 5 
POKE2023,160:P0KE56235,5 
RETURN 

REM *** MUSICA MARCIAMITOS' 

FORI =S0T0S0+24 • POKEI, 0: NEXT 


PREMIADO CON 



I PESETAS 


S8” 


ai 


¡a 


W Hm 
W 

^rspc<26>" la 
Br"SPC<26) ,! Sr 
!T : 'SPC(27)"a 
■ai" spc <27>" a 
a" spc( 27) r w 
a ar ^ 

a a 

m 4 

ai 3 r 

a íi 


a¡ 

ai 

¡a 


^a 


"^a 

w 


¡a 


a 

ai 

■a 


•RETURN 


*** 
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2260 PQKESG+3,3 

2270 PÜKE50+5,41:P0KES0+6,89 

2280 POKESO+14,117:PÜKE30+18,16 

2290 POKESÜ+24,143 

2300 F0RI-1TQ14 

2310 POKESO+4,65 

2320 POKESO, B1 < I >:POKESO+1,fl1<1> 

2330 FORT®1TOD1(I) : NEXT:P0KES0+4,64 
2340 NEXT 

2350 PQKESÜ+5,15:poKESO+6,245 : POKESO+1,25:POKESO,177:P0KES0+24,O:P0KES0+4,129 
2360 GÜTO30 

2370 REM ***** HftS flTERRIZñDO 0 NO ***** 

2380 IFVE03RNDY < 1> >=201THENCN® 1 
2390 IFCN=0THEN2580 

2400 REM ****** HRS ATERRIZADO ******* 

2410 PR=PR+PU: PX®33: PY®6 : GOSUB2830 : PRINT" S¡”PR"I¡5¡ 

2420 IFPR>RETHENRE=PR 

2430 PX=33 : PV= 1 0 : GOSUB2830 : PRI NT "3" RE ÜSÍ ” 

2440 POKEV+21,2 

2460 FORI«SOTOSO+24:POKE1,0:NEXT 
2470 P0KES0+3,8 
2480 P0KES0+5,41** P0KESÜ+6,89 
2496 POKESQ+14,117:POKESO+18,16 
2500 P0KES0+24,143 
2510 F0RI=1T022 
2520 F'OKESO+4,65 
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REGALAMOS 


PEGATINAS 


■ LOS LECTORES QUE Mi 
QUIERAN RECIBIR GRATUITAMENTE 
PEGATINAS DE 



SOLICITARLAS 
POR CARTA 
A NUESTRAS OFICINAS 

(no se aceptan pedidos por Tel.) 


Bravo Murillo, 377-5°-A 28020 MADRID 

INDICANDO CLARAMENTE SU NOMBRE Y DOMICILIO 


* DISTRIBUIDORES ' 

COMMODORE 
SPECTRUM 
Y AMSTRAD 

Como importadora de COMMODORE y AMSTRAD 
les ofrecemos los mejores precios del mercado. 


“COMPRUEBELO” 

QL 128 K CON SOFTWARE EN EXISTENCIA. 
OFERTA MUY ESPECIAL PARA AMSTRAD Y COMMODORE 
CON SUS APARATOS PERIFERICOS EN DICIEMBRE 84 

Envíos a toda España. 

Entrega dentro 48 horas. 
Garantía: 6 meses. 


CONSULTENOS: 

LOBERSA 

Malaga, telf (952) 44 82 64 / 21 12 91 
Apdo. 336 Torremolinos (Málaga) Telex 77 480 
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”,:FORT*1TO50:NEXT¡NEXT 


2830 
2810 
2820 
2825 
2830 
2840 
2850 
2863 
2870 
2880 
2830 
2330 
2310 
2323 
2330 
2340 
2350 
2360 
2370 
2380 
2330- 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3086 
3030 
3100 
3110 
3120 
3130 


i POKESO+1/ flF <1 > •• PGKESQ, EF < I} 

' F0RT=1TÜDU<I)*3:NEXT:P0KES0+4,64 
i NEXT 

i POKEV+21,0:POKEV+2,0:POKEV+3,0 
GOTO320 

REM **** TE HfiS ESTRELLADO **** 

FU=700:P0KE30+24,15:RQKEV+23,2:POKEV+23,2 

POKEV, X+10 : POKEV+1, V+10: POKEV+2, X ( i ) : POKEV+3, V (1) : PÜKESO+1,4: POKESO, 208 

POKEV+21,3:P0KES0+24,15:POKEV+23,2:F'OKEV+29,2 

FORI=1TO70@:NEXT 

POKEV,X:POKEV+1,V:POKEV+23,3:POKEV+23,3 
FOR1=1TO600 : NEXT 
POKEV+21,1 
FORI=1TO400:NEXT 

POKEV,X+10:POKEV+1,V+10:POKEV+21,í:POKEV+23,2 : POKEV+23,2:P0KES0+24,7 
FORI=1TO400 : NEXT 
POKEV+21,0:P0KE30+24,0 
POKE53280, 2: F'R I NT " SH" . : FHRI = 1 Tf¡24 
F'RINT" SI 

P0KE53231,2 : PRI NT" 11" 

POKE53280,6 
PRINT"*WWW»! SE ACABO TU TMRNn." 

F'RINT" ___" 

F'RINT"WSKW PUNTOS CONSEGUIDOS: 3*ii”FR"ii •' 

PRINT"MIS¡ RECORD CÍTJ"RE"lii " 

PRINT"ÍWMJflM ai OTRA VEZ ? (S/N) " 

IFPR>RETHENRE=PR 

GETA$ 

IFní="3"THEHPR=0:COTO320 
IFA$-="N"THENEND 
GOTO2730 

REH ***** RUTINA F'OS. X,V ****** 

P0KE783,0:P0KE782,PX:P0KE781, F'V : SVS65520:RETURN 
REM***** EXPLOSION ****** 

J ,64,4,20,80,4,84,84,23,85,21,85,80,21,85,86,85,170,84,22,163,80 
DHTH¿¿, 169,8.j, 86, i ('@,84, 85, 1 "0,80,21,170,84,22, 163,84,22,16P,R5 

22I2S1 170 ■' 84 ' 6 ' 170 •' 148 •' 21,165,143,85,85,84,21,5, 68,5,1,69, 4 , 1 

REM****** MODULO ********** 

A? ■' 7 ' 126 i. 226 í , 126 i 250, 63,102,254, 119,126,222,119,126, 222 
. . I.. ^ . 02 ■' +'- 12 •' 127,1 ¿6, ¿54, ¿'tí, 126, 56, ¿3,255, i 84, 23,25o, i 84 
DAT A0^ 10¿, 6, 12<, ¿o5, ¿'54, tí i, 255, i 38,73,255, i 46,69,255, i 62 
iiATAb < , ¿o.,, 134, 1 ¿5, ¿00, 188,6'4, 60 • 2 * . 2 , 2*24 , Ti, 7 

RtM**##* TOBERA INFERIOR ****** 

1 132 ' 3 ' i s ?:¿ : ' 2 i 3 •' 105 •' 192,15,100,240, 13,185, i 12,13,105,112 

i nTri lo,* 10J / 1 1 / 1 o .* 1 0-j .'11 .< 1 o .■ 103 ,i 112/ lo.* 1 Ar* t 2 4 A i ! *í • 1 1/1.3 > i '32 , f 1 05 , \ Q2 

5212® •' 1 0 5 •' [ 32 3, 35, i 32,3,85,132, 3,215,132,0,215, 1 92,' 0,2'í 5 i í 92,0^12,0 
UfilHü,0,0,ü,0,0 

REM**** TOBERñ IZQUIERDO ***** 

DATA0.«0 1 0.. 21.« 64.. 0.-213/ 80086.• 160.• 0 • 1 AF.. i60 , A, ñh t i 60, i?¡ 

DRTR213/ 807 0,. 21.. 64.. 0.. 0, 0,0 
REM**** TOBERñ DERECHfi ****** 

pñ i ñ0.- 0.. 0.- 1.. 84.. 0.. 5.. 87.- 0.10.. 143.- y.- iü . 163.- 0.- 10/143',. 0/5/87.- 071 . ?A - 0 
REM *** MUSICA "HUEVO MUNDO" *** 

BfiTño'4 7 < ~j .- 40.- 64.- < o2023 .-214.- 20.- 25 • 177 < 4 A 

nñTfí34.- 757 3043.- 52/ 10/51/32.- 20.-51., 32, 20.-5132.- 66,,51/32/ 

?. I?? 7 •• i 72.- 551.- 97,20.- 45,138/ 20.- 43 / 52/ 20 
pñl ñb 1 / 37.- 40.- 45 7 i 38i 0.- 51, 97i 045 , 1 93 <t \ q 
Dfí 1 R38 7 126 7 10.- 3234 7 i y 7 28 7 214.- í 0 - 2-5 • 17~ - 4 A 
REM_***_ MUSICR :: MARO I AHITOS" *** 

DRTR 12.-216.- i 00.- 1 (.- 6 < .- 500 .-21.- 154.- 60.- 21.- i 54,- 60 
ER] R 177 37.-60721.- 154 7 i 00.- 25.- i 779008 , 0.. 100 
DR 1 7 1 1 / .- 100 7 54.- < 5500.- 43.» 52 • 6 A • 54 • 75 • FA 

DATA43 7 52.-1005137.- 300 
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¿Qué tal andan nuestros lectores de 
fuerza? Esperamos que bien pues os 
vamos a proponer un programa na¬ 
da menos que de levantamiento de pe¬ 
sas, para ver que tal andáis de forzu¬ 
dos. Además se trata de que intentéis 
batir todos los records, nada de can¬ 
sarse enseguida y abandonar. 

La idea de este programita es de 
Guillermo Abella, que nos lo envía 
desde Castellón. Está diseñado para 
funcionar en un Commodore 64 (y 
por supuesto funciona). 

El desarrollo del programa es co¬ 
mo sigue. Después de escribir RUN 
aparecerá el título del programa y dos 
columnas con números del 10 al 90, 
que representan los kilos por los que 
se puede empezar. Es aconsejable no 
confiarse demasiado y empezar con 
10 Kg. para no llevarse sorpresas. 

Después de seleccionar el nivel de 
comienzo aparecerá en escena el le¬ 
vantador y esperará hasta que se pul¬ 
se cualquier tecla para comenzar el le¬ 
vantamiento. 

Una vez que da comienzo el levan- 


n 

mjíamwHm i 

■t*. 

ui 

■KMUM9XAI 

BK 


. 


tamiento todo depende del jugador. 
Para hacer que las pesas se eleven, este 
debe pulsar repetidamente y lo más 
deprisa que pueda las teleas «B» y 
«V». 

En la parte superior de la pantalla 
aparecen dos indicadores, uno, indi¬ 
ca la energía del jugador y viene a ser 
una limitación de tiempo. El otro in¬ 
dica la fuerza que está aplicando el le¬ 
vantador. Cuanto más rápidamente se 
pulsen «B» y «V» mayor será la fuer¬ 
za y más alto subirán las pesas. 

Si se consigue que las pesas lleguen 
arriba, el levantador manifestará su 
alegría saltando, y después de repo¬ 
sar un poco tendrá que pasar al peso 
superior (10 kilitos más). A los 120 
Kg. se disputa la medalla de bronce 
y luego las de plata y oro. A estos ni¬ 
veles ya se puede subir al pódium al 
terminar la partida. 

Guillermo nos comenta que el re¬ 
cord entre sus amigos es de 120 Kg. 
(medalla de bronce). Así que ánimo, 



que las de plata y oro están todavía 
por disputar. 

Y una última cosa, ¡qué la fuerza 
os acompañe! 


ESTRUCTURA DEL PROGRAMA 

11-350 Diseño del dibujo y 

3000-3240 Salto a rutinas de las 

espera hasta que se 

medallas. 

pulse una tecla. 

5000-5500 Presentación y selec- 

400-700 Bucle Principal, lectu- 

ción del Peso inicial. 

ra del teclado, incre- 

6000-7510 Obtención de meda- 

mentó de fuerza (F). 

lias. 

Disminución de ener- 1 


gía. 

8000-9200 Entrega de medallas y 

1000-1040 Fin de juego y vuelta 

subida al Podium. 

a empezar. 

10000-10330 Datas. 


1 REM 

2 REN 

3 REM 

4 REM 
3 REM 

6 REM 

7 REM 

8 REM 


** ** 

#* HALTEROFILIA ** 

** ** 

## POR ** 

** 

#* GUILLERMO ABELLA «» 


9 Al®120 

10 GOTO 5000 

11 PRINT'TBSBI 


«CLASIFICACION" 
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II 


12 P=192 : F*0 : E*200 : Z*1 
15 V=53248 ; X*158 : Y*170 
30 PÜKE53280,6:P0KE53281,5 

50 PR1NT I, H8ÜXDCI9ÍÍP»»9ÍÍPÍÍI PESO 
60 F0RZZ»55296T056295:POKEZZ,0:NEXT 

70 PRI NT" Ssüippppppppppppppppppppppi 
80 pr i nt 1 saaiinippppppppppppppppppppi 

90 PR I NT SaiKIHKU^PPPPPPP 

100 PRINT M »Ml»DIQaMPPP»PPPPPPPPpppppppppppp| 

110 FORZZ®1304TO1383 : POKEZZ , 160 : NEXT 
120 FORZZ»1031TO1311STEP40:POKEZZ,160:NEXT 
130 FORZZ»1053TO1333STEP40:POKEZZ,160:NEXT 
140 FORZZ»1214T01223 : POKEZZ,160:NEXT 
150 PR I NT" aaiTCKKKIPPPPPPPPI HflLTEROF ILI fl 

160 PRINT n aa<<Dtt««W«OflliPPPPpppENERGIR : H 
165 pr i nt 11 mmmmx$nmwmnnn\ '; e 
170 F0RZZ«55936T056295:POKEZZ,7:NEXT 
180 FORZZ*1837T01849:POKEZZ,160:NEXT 
190 FORZZ*1877T01889:POKEZZ,160:NEXT 
195 RESTORE 

200 FORP1*12288T012350:RERDK1:POKEP1,K1:NEXT 

201 FGRP2* 12352T012414: RERDK2 : P0KEP2K2 ; NEXT 

202 FQRP3*12416T012478:RERHK3 : P0KEP3,K3:NEXT 

203 F0RP4*12480TO12542:RERDK4:P0KEP4,K4:NEXT 

204 F0RP5*12544T012606:RERDK5:P0KEP5,K5:NEXT 

205 F0RP6*12608TO12670:RERDK6:P0KEP6,K6 : NEXT 

206 F0RP7-12672T012734:REBDK7:PQKEP7,K7:NEXT 
210 POKEV+21,1 : POKEV,X:POKEV+1,V 

220 POKEV+39,2 
230 POKE2040,192 
240 POKEV+23,1:PQKEV+29,1 
300 5*54272 

305 FORL*0TO24 : PQKES+L,0 : NEXT 

310 PQKES+14,5:POKES+18,16:POKES+3.1 

315 POKES+24,143:POKES+6,240:POKES+4,65 

320 FR=5389 

325 FQRT*1TQ10 

330 FQ*FR+PEEK < 84*27 ) *3. 5 

335 HF=INT(FQ/256) : LF=FQ~HF#256 

340 POKES+0,LF:PQKES+1,HF 

345 NEXT 

350 P0KES4-24,0 

oso PRiuT u mmmmmm*m 

370 FORZZ*1TO30:GETR$:NEXT 
375 GETR$:¡F fl$»""THEN375 
388 print 

400 FORBB* 1TOZ •* GETR$ : NEXT 
405 GETR$ : IF R$«" V ,, ORR$="B"THENF=F+20 : GOTO 420 
410 F*F-5 

420 PR I NT 11 ¡QaiXIKDIlKlKiaíPPPPPPPPPPppppppiiiiiiiiiiiiii 

425 IF FC0THENF=0 
430 PR I NT 

438 IF F>1200 THENZ»10 : GOTO 550 

439 IF F>1100 THENZ*9 : GOTO 550 

440 IF F>1000 THENZ*8 : GOTO 550 
445 IF F>900 THENZ*7 : GOTO 550 
450 IF F>800 THENZ*6 : GOTO 550 
455 IF F>700 THENZ*5 : GOTO 550 
460 IF F>600 THENZ=4 •' GOTO 550 
470 IF F>400 THENZ=3 : GOTO 550 
480 IF F>200 THENZ=2 : GOTO 550 


RECORD H 

iph"ri 

IPPPI FUERZR 
IPPPPI 


PREMIADO CON 





PESETAS 


>1 P R E P R R fl D O 
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330 IF F>L1THENP=197 : GOTO 570 
536 IF F>L2THENP=196 : GOTO 570 
557 IF F>L3THENF’*195 : GOTO 570 
538 IF F>L4THENP*194 : GOTO 570 

359 IF F>L5THENP=193 : GOTO 570 

360 IF F<L5THENP=192 GOTO 570 

561 IF F<L4THENP=193 : GOTO 570 

562 IF F<L3THENP >, 194 : GOTO 570 
363 IF F<L2THENP=195 : GOTO 570 
564 IF F<L1THENP=196 : GOTO 570 
570 POKE2040, P 

575 IF P=197 THEN 3000 
583 E=E~1 

587 IF EC0THEN1000 


538 pr i nt " naaanionnaii»i»»»ii*v*ii»ii 

590 pRiNT M aa:onDmKnM^ 

700 GOTO 400 
1000 GOTO 7500 


1005 PRINT''4n^[»IIDOOniKIl!>»»»»l J U E G O 

1310 FORZ2=1TO6000 : NEXT 

1020 PRINT'T]" : F'QKEV+21,0 

1040 GOTO 10 

3000 GOSUE 4000 

3010 FORZZ=1TO2500 : NEXT 

3070 L1=L1+50 ; L2*L2+40 : L3=L3+35 : L4=L4+25: 

3090 F0RP=196T0192STEP-1 

3100 F'OKE2040,P 

3110 FORZZ»1TO250:NEXTZZ 

3120 NEXT 


II 


terminado 


L5=L5+ 15 : B1=»B1 + 10 


3130 POKE2040,198 

3135 GOSUE 4000 

3140 FQRY=170TO140STEP-1 

3150 POKEV+1,Y 

3155 FORZZ=1TO10 : NEXTZZ 

3160 NEXT 


3165 IF B1>fi1-1+10THEN6000 

3170 FORZZ=1TO50:NEXTZZ 

3180 FORY=140TO170 

3190 POKEV+1,Y 

3195 FORZZ*1TO10 : NEXTZZ 

3200 NEXT 

3210 GQSUB 4000 

3220 FRINT M" :POKEV+21,0 

3230 IF B1=120THEN7000 

3232 IF E1=130THEN7100 

3234 IF B1“140THEN7200 

3236 IF B1■150THEN7300 

3238 IF B1=160THEN7400 

3240 GOTO 11 

4000 W=54272 

4005 FORL=0TO24: F'OKEW+L, 0: NEXT 
4010 POKEVV+24, 15 : POKEW+6, 0 
4020 MM»1 

4030 POKEVV+1,24:POKEVV+5,138 

4040 POKEVV+4,129'FORNN*1TO1500-75*MM:NEXTNN 

4050 POKEVV+4,0 

4100 RETURN 

5000 PRINTM" : POKEV+21,0 


II 
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5010 

5020 

5025 

5030 

5035 

5040 

5050 

5060 

5061 

5062 

5063 

5064 

5065 
5070 
5080 
5030 
5032 
5095 
5097 
5100 
5105 
5110 
5120 
5125 
5130 
5500 
6000 
6010 
6100 
7000 
7010 
7100 
7120 
7200 
7220 
7300 
7320 
7400 
7420 
7500 
7510 
8000 

8010 

8020 

8030 

8040 

8045 

8047 

8050 

8060 

8064 

8066 

8070 

8074 

8076 

3030 

8084 

8086 


P0KE53230,6:PÜKE53231,5 

PRINT M r*a»»*i»»»»| HALTEROFILIA" 

pr i nt " «iKcaraQi 0iiKt*rai£0ii " 

pr i nt * asamc i los»ppppp»*p»pppppppppppppppppp t: i los " 

PR I NT" ■SIIIIIPKCK^ 0 IID^^ " 

PRINTlMlimi»l»l»ll»||| K I L O S 

GETA$ 

IF A$=" 1 "THENB1=10 ; GOTO 5100 
IF A$="2"THENB1=20:GOTO 5100 
IF ñ$«"3"THENB1=30 : GOTO 5100 
IF R$="4"THENB1=40 : GOTO 5100 
IF A$="5"THENB1=50 : GOTO 5100 
IF A$="6"THENB1=60 : GOTO 5100 
IF A$«"7"THENB1=70:GOTO 5100 
IF A$*"8"THENB1=80 : GOTO 5100 
IF A$="9"THENB1=90 : GOTO 5100 
IF A$=""THEN 5050 
F0RZ2 a *lT02 : GETA$ : NEXT 
GOTO 5050 

PRINT 1 ni^iliiiiiiiiiiiiiiiiii!^ •; £1 

FORZZ=1TO1000:NEXT 

L5=35:L4=75:L3=115:L2=160:L1=200 

FORQS=1TOB1/10 


L5=L5+15:L4=L4+25 : L3=L3+35 : L2=L2+40•L1=L1+50 

NEXT 

GOTO 11 

fll»Bl 

GOSUB 4000 
GOTO 3180 

FRI NT 11 SÜ SÜVPPPPPPPPPPI B R O N C E " 

GOTO 12 

PRINT «3IPPPPPPPPPPPI PLATA " 

GOTO 12 

PR I NT" 3B SÜPPPPPPPPPPPI O R O " 

GOTO 12 

PR I NT M SU aaiiPPPPPPPi:ANPEON OLIMPICO ' 

GOTO 12 

F'R I NT" 131 SttliPPPiPPPHOAMPEON DEL MUNDO" 

GOTO 12 

IF Bl>120 THEN8000 
GOTO 1005 
POKEV+21,0 

FQRZZ=1384TÜ2023:POKEZZ,160:NEXT 
F0RZZ=55656T056295 : POKEZZ, 5 •’ NEXT 
IF B1=130THEN8060 
IF B1=140THEN8070 
IF B1=150THEN8080 
IF B1 *160THEN8030 
IF B1 = 170THEN900E1 
X=168:V=165 



PR I NT ” MEDALLA DE BRONCE" 

GOTO 9100 
X=128:V=157 


F'R I NT " P P P P P13 3 MEDALLA DE PLATA" 

GOTO 9100 
X=88 : V=141 


F’R I NT" ÍPPPPPI43 MEDALLA DE ORO" 

GOTO 9100 
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ALGO SOBRE SCROLLER 

PUNKMAW 

SPRITES EN ALTA 
RESOLUCION 

MUSICAL SIMON 

GHOSTY 

GRAFICOS EN ALTA 
RESOLUCION 

MATEMATICA BASICA 

MINE ZONE 

FICHERO DE DIRECCIONES 

MUSICA POR 
INTERRUPCIONES 

MOVING MAZE 


Obnoxia, en <juúnco 


ha&ibtaS » Jo&dbda. o.; 

BVFODIS. S.A. W/T^ 
Bravo Miirillo, 377-5. °-A 
28020 MADRID 

enviando el cupón que encontrará 
en esta revista 


mmmmm 
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8030 X-88 : 'V=141 

8034 P RIN T 1 ’ SMK^WIÍDSDÍ^ i i V K ai ¡3 C R M P E 0 N OLIMPICO" 

8036 GOTO 3100 
3000 X=33 : V®141 

3010 F’RIMT" i 14 3 C fi M P E O N DEL MUNDO " 

3020 GOTO 3100 

3 100 pr i nt " v&himmmwmmw 

3110 PRINT"¡a:i«CK^^ II 934 " 

3120 F’R I NT" VPPPPi II 924 " 

3130 PR I NT" SíÜPBlÜViH9 
3140 PR I NT" S4BÜiVBiB b iüI 914 " 

3150 FOF:ZZ=1TO1000:NEXT 
3155 POKEV+23,0:PÜKEV+23,0 

3160 F’OKEV, X : POKEV+1 j V • POKE2040, 138: POKEV+21, 1 
3165 GOSUB 4000 
3 í 70 FORZZ=1T03000:NEXT 
3200 GOTO 5000 

10000 DRTR0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0 

10010 DRTR0,28,0,0,28,0,0,8,0,0,126,0,0,255,0,1,255,128 

10020 DRTR3,126,132,2,126,64,2,60,64,2,60,64,34,24,68,102,126,102 

10030 DRTR255,255,255,96,135,6,35,129,196 

10050 DRTR0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

10060 DRTR0,28,0,0,28,0,0,28,0,0,8,0,63,255,252,49,255,140 

10070 HRTR24,126,24,40,126,20,108,60,54,255,255,255,36,24,6,32,126,4 

10080 DRTR0,231,0,0,195,0,3,123,192 

10100 DRTR0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

10110 DRTR0,28,0,0,28,0,0,28,0,0,8,0,33,255,132,37,255,134 

10120 DRTR255,255,255,121,126,158,45,60,130,7,69,224,0,24,0,0,126,0 

10130 DRTR0,231,0,0,135,0,3,129,132 

10150 DRTR0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

10160 DRTR0,28,0,32,28,4,96,28,6,255,255,255,121,255,158,43,255,140 
10170 DRTR25,126,152,13,126,176,7,60,224,0,60,0,0,24,9,6,126,0 
10180 DRTR0,231,0,0,195,0,3,123,192 
10206 DRTR0,0,0,0,0,0,0.0,0,0,0,0,32,0.4,36,0,6 

10219 DRTR255,255,255,39,28,198,38,28,100,12,8,48,15,255,250,1,255,128 

10220 DRTR0,126,0,0,126,0,0,60,0,0,60,0,0,24,0,0,126,0 
10230 DRTR0,231,0,0,135,0,3,129,192 

10250 DRTR32,0,4,96,0,6,255,255,255,93,0,138,33,0,132,1,0,128 

10260 DATA1,28,128,1,28,128,1,28,128,1,8,128,1,255,128,1,255,128 

10270 DRTR0,126,0,0,126,0,0,60,0,0,60,0,0,24,0,0,126,0 

10230 DRTR0,231,0,0,135,0,3,123,132 

10300 DRTR0,0,0,0,0,0,0,0, 0,3, 0, 192, 1,9, 128, 1,0, 128 

10310 DRTR1,28,123,1,28,128,1,28,128,1,8,128,1,255,128,1,255,128 

10326 DRTR0,126,0,0,126,0,0,60,0,0,60,0,0,24,0,0,126,0 

10330 DRTR0,231,0,0,195,0,3,129,132 
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Cómo guarda 
el diskette la información 


El medio más comunmente utiliza¬ 
do por los ordenadores personales pa¬ 
ra almacenar información es el mag¬ 
nético. Existen dos soportes físicos 
principales: la cinta y el diskette. Por 
supuesto, para cada uno de ellos hay 
distintos formatos. Para el VIC-20 y 
el C-64 se recurre a la cinta de casset- 
:e. del mismo tipo de las utilizadas en 
audio, aunque el medio magnético 
puede ser de otro tipo más adecuado 
para grabar señales digitales, y al dis¬ 
kette , que es un circulo de material 
plástico recubierto por el medio mag¬ 
nético. El acceso a la información es 
mucho más rápido en el diskette ; pues 
la cabeza de lectura/grabación puede 
desplazarse por toda la superficie 
circular de modo aleatorio. Por el 
contrario, el acceso a la información 
contenida en cinta es secuencial, es 
decir, la cabeza debe leer toda la in¬ 
formación que se encuentra almace¬ 
nada entre su posición actual y la po¬ 
sición que ocupa lo que buscamos. 

Los dos modelos de unidad de dis¬ 
kette más divulgados para los mode¬ 
los mencionados de unidad son los 
1540 y 1541. Normalmente las unida¬ 
des de diskette son controladas desde 
el ordenador, dependiendo de v él para 
funcionar. Sin embargo, las unidades 
de Commodore son autónomas, dis¬ 
ponen de un microprocesador propio 
incorporado, una pequeña cantidad 
de memoria RAM y una memoria 
ROM que contiene el sistema opera- 
tativo. 

El sistema operativo es un conjun¬ 
to de programas en código máquina 
que se encargan de gestionar el correc¬ 
to funcionamiento de la unidad de 
diskettes en combinación con el orde¬ 
nador. Su nombre es DOS, Disk Ope- 
rating System (sistema operativo pa¬ 
ra disco). 


Comencemos viendo de qué mane¬ 
ra se almacena la información en un 
diskette cualquiera. Obviamente no se 
dispone de manera aleatoria en la su¬ 
perficie del diskette , sino que debe ir 
colocada en un determinado orden 
para que el DOS sepa donde buscar¬ 
la en cualquier momento. 


El diskette almacena la información 
en forma de bytes, tal como lo hace 
la memoria RAM central del ordena¬ 
dor, y la deposita sobre una serie de 
pistas invisibles que forman circunfe¬ 
rencias concéntricas en el disco. 

El número de pistas en que se divi¬ 
de al diskette es de 35. Puede parecer 



Figura 1. Composición del diskette. A. Ventana de escritura. Si no exis¬ 
te, el disco está protegido. B. Bolsa protectora. C. Tela limpiadora del dis¬ 
co mientras gira. D. Disco magnético. E. Ventana por la que se leen y gra¬ 
ban los datos. F. Agujero para el sincronismo. 
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extraño esto último que acabamos de 
decir, pero imaginemos un diskette re¬ 
cién comprado. En él no hay más que 
la capa de material magnético, forma¬ 
do por microscópicas partículas, no 
existe en él nada que pueda parecerse 
a las pistas mencionadas. Es el DOS 
quien desplaza la cabeza grabadora de 
la unidad de diskettes encima de un 
punto determinado de la superficie, 
dejándola inmóvil. A su vez el diskette 
gira por medio de otro motor y esto 
es lo que produce que la información 
grabada sobre el disco lo sea en dis¬ 
posición circular. Posteriormente el 
sistema operativo vuelve a desplazar 
la cabeza a otro punto próximo y se 
repite el proceso. La información que 
va depositando el DOS sobre cada 
una de las pistas informará posterior¬ 
mente a la cabeza de lectura sobre el 
lugar en que está situada en cada mo¬ 
mento, pues contiene los datos refe¬ 
rentes a la pista y sector afectado. 
Aparece aquí un concepto que no ha¬ 
bíamos mencionado antes: sector. Pa¬ 
ra mayor flexibilidad en el manejo se 
divide a cada pista en una serie de sec¬ 
tores que varían en cantidad según el 
número de la pista. La pista número 
1 es la más exterior y por tanto su lon¬ 
gitud es la mayor, siendo dividida por 
el DOS en 21 bloques o sectores. Es¬ 
ta cifra es la misma hasta la pista 17. 
Entre la 18 y la 24 el número de sec¬ 
tores baja a 19, siendo de 18 desde la 
25 a la 30 y 17 entre la 31 y la 35. Es¬ 
te proceso inicial por el que se graban 
las pistas y sectores mediante señales 
magnéticas recibe el nombre de inicia- 
lización del diskette. 

Obviamente, un disco nuevo que no 
ha sido previamente inicializado por 
el sistema operativo (DOS) no sirve 
para guardar ningún tipo de informa¬ 
ción útil para el ordenador. No es el 
objetivo de este artículo tratar los co¬ 
mandos de inicialización, que por otra 
parte vienen explicados en el manual 
de la unidad. Conviene recordar que 
los sectores se numeran a partir del ce¬ 
ro, así el primer sector es el referido 
como cero. 

La pista 18 es particularmente in¬ 
teresante, pues se la reserva el sistema 
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Figura 2. Cada pista se divide en una serie de sectores. 
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Figura 3. Volcado en impresora de la pista 18/sector 0. 
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Figura 4. Volcado en impresora de la 

operativo para hacer sus anotaciones. 
Como vimos, tal pista dispone de 19 
-ectores, numerados de 0 a 18. Acla¬ 
remos que todos los sectores pueden 
-lmacenar hasta 256 bytes de infor¬ 
mación, aparte de los datos referen- 
:es al número de pista, sector y otros. 

El sector 0 de la pista 18 almacena 
el BAM, Blocks Availability Map (ma- 
ra de disponibilidad de bloques o sec¬ 
ares, como gusta llamar Commodo- 
re). Es utilizado por el sistema ope¬ 
rativo para conocer en cada momen¬ 
to cuál es el estado de ocupación de 
los sectores en cada pista. 

Cuando compramos la unidad de 
diskette vemos que le acompaña un 
disco para demostración de su funcio¬ 
namiento que recibe el nombre de 
Test/Demo . Si listamos el directorio 
(LOAD«$», 8 y después LIST) obser¬ 
vamos que aparece un programa titu¬ 
lado «Display T & S» o lo que es 
igual: Visualización de pista y sector 
(Track y Sector). Carguémoslo en el 
ordenador. En la pantalla aparece un 
mensaje que nos pregunta si quere¬ 
mos que la visualización se haga en 
la pantalla ( Screen ) o la impresora 
(Printer ). Una vez introducido el dis¬ 
kette sonará durante unos instantes, 
encendiéndose también el LED fron¬ 
tal que indica la utilización de la uni¬ 
dad, y aparece en la pantalla otro 
mensaje: Track , Sector? Tecleamos 
18,0 y en la impresora aparecerá lo 
mismo que en la figura 3. Acabamos 
de visualizar el contenido del BAM 
en forma hexadecimal de los 256 bytes 


pista 18/sector 1. 

que almacena dicho sector. Cada fila 
corresponde a 16 bytes. Inmediata¬ 
mente a la derecha, tras los dos pun¬ 
tos, tenemos el carácter equivalente en 
código ASCII, muy útil para detec¬ 
tar las cadenas alfanuméricas conte¬ 
nidas en el sector. Los dos primeros 
bytes de cualquier sector contienen 
respectivamente la pista y sector del 
siguiente bloque (sector) al que debe 
ir a leer el sistema operativo. En este 
caso es la pista 18 (12 en notación he¬ 
xadecimal) y el sector 1 ($01, siendo 
$ el símbolo empleado para los núme¬ 
ros hexadecimales). El tercer byte es 
65 ($41) que indica que estamos tra¬ 
bajando con el formato empleado por 
la unidad 1541. El cuarto byte no 
se utiliza ahora y vale $00. Entre el 


Figura 5. Información contenida en 



quinto y el ciento cuarenta y dos está 
contenido el BAM y cada byte está re¬ 
lacionado con un sector. Los bytes 144 
a 159 ($90 a $9F) son 16 bytes reser¬ 
vados para guardar el nombre con el 
que bautizamos al diskette cuando lo 
formateamos. Si el nombre que le da¬ 
mos es más largo de este número de 
bytes, el sistema operativo lo trunca¬ 
rá. Seguidamente, los bytes 162 y 163 
($A2 y $A3) guardan el número del 
ID, número opcional identificador del 
diskette. 

Una vez concluida la transferencia 
de los bytes de la pista 18/sector 0 a 
la impresora, la pantalla nos pregun¬ 
ta sobre si queremos examinar algo 
más. Tecleando 18,1 volcaremos sobre 
el papel el contenido del siguiente sec¬ 
tor, que contiene la primera parte del 
directorio. Igual que ocurría con el 
sector anterior, este emplea sus dos 
primeros bytes para contener la infor¬ 
mación referente al siguiente sector al 
que se dirigirá al sistema operativo 
cuando termine con él. En el ejemplo 
de la figura 4 se muestra que el si¬ 
guiente sector sería el 4 ($04) de la pis¬ 
ta 18 ($12). En el sector a que nos es- 


un sector del directorio. 


Byte numero ; 

I rif ormac i on 

contenida : 

Decima1 

Hexadecimal 



00 y 01 

$00 y $0 1 . . . 

.Humeros de Pista y sector 



siguiente se 

ctor del di- 



rectorio 


02 a 31 

$02 3 $1F ... 

.Cabecero de1 

1er. fichero 

34 a 63 

$22 ■?. $3F ... 

.....Cabecero del 

2o. fichero 

66 3 . 95 

$42 3 $5F 

.Cabecero del 

3er. fichero 

98 3 . 127 

$62 3 $7F ... 

.....Cabecero del 

4o. fichero 

130 3 . 159 

$82 3 $9F ... 

.....Cabecero del 

5o. fichero 

162 3 . 191 

$ñ2 3 $EF ... 

.Cabecero del 

6o. fichero 

194 a 223 

$C2 3 $DF ... 

.....Cabecero de1 

7o. fichero 

226 a 255 

$E2 .3. $FF ... 

.Cabecero del 

8o. fichero 

TRfiCK 

18 SECTOR 1 
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Byte 

numero : 


Decimal 

Hexad 

ecim 

00 - 

$00 


01 y 02 

$01 y 

$02 

03 a 18 
19 y 28 

$03 -3. 
$13 y 

$12 

$14 

21 

22 a 25 
26 y 27 

$15 

$16 -3. 

$1R y 

$19 

$1B 

28 y 29 

$1C y 

$1B 


I nf orrnac i o n co nte n i d-3. 


..TiPo de fichero, de la 

forma $8X> siendo X : 

0 borrado.. 1 secuencias 
2 Pro9rarna.. 3 usuario.* 

4 relativo 

.Pista y sector de los 

Primeros 256 bytes del 
fichero 

...... Nombre del fichero 

......Pista y sector del Pri¬ 
mer sector de datos Para 
el DOS si el fichero es 
re1ativo 

......Lon9itud del registro 

.Sin utilización 

.Pista y sector de un fi- 

fichero nuevo 

.Numero de sectores utili¬ 
zados Por el fichero <by- 
te de menor Peso-byte de 
m a y o r P e s o). 


Figura 6. Estructura de cada cabecero del directorio. 


tamos refiriendo vemos el nombre de 
8 ficheros, que pueden ser secuencia- 
les, relativos, programas, etc., este es 
el número máximo de ficheros a que 
se puede hacer referencia en un sec¬ 
tor del directorio. El cuadro de la fi¬ 
gura 5 nos ayudará a ver más claro có¬ 
mo está distribuida la información 
que afecta a cada fichero. 

Los bytes 2, 34, 66, 98, 130, 162, 
194 y 226 dan comienzo cada uno de 
ellos al cabecero de un fichero, tenien¬ 
do todos el mismo formato, según se 
ve en la figura 6. El byte 0 correspon¬ 


diente al primer fichero de que se tra¬ 
ta. Sea cual sea el tipo, siempre va pre¬ 
cedido por $8, es decir, se suman 128 
(decimal) al número de identificación 
del tipo de fichero. Así por ejemplo, 
122 ($82) indica que se trata de un 
programa. 

Los dos siguientes bytes, 1 y 2, di¬ 
cen cuáles son el número de pista y 
sector del bloque de datos que con¬ 
tiene los primeros 256 bytes del fiche¬ 
ro en sí. En realidad son 254 bytes, 
pues los 2 primeros bytes de ese sec¬ 
tor son a su vez el número de pista y 


el de sector en que se debe buscar el 
siguiente bloque de 256 bytes de da¬ 
tos y así sucesivamente. 

Los bytes que ocupan los lugares 
cuarto a decimonoveno contienen al 
nombre con que ha sido bautizado el 
fichero, que puede tener una longitud 
máxima de 16 bytes (caracteres). 

El siguiente par de bytes contiene 
información del número de pista y 
sector donde se guarda una informa¬ 
ción muy útil para el sistema operati¬ 
vo cuando trabaja con ficheros rela¬ 
tivos, pero que no vamos a entrar en 
discutir, por no ser este el objetivo del 
artículo. 

El byte 21 almacena la longitud del 
fichero en el caso de que este sea re¬ 
lativo. Los 22 a 25 carecen de utiliza¬ 
ción y los 26 y 27 contienen una in¬ 
formación que solamente interesa al 
sistema operativo. 

Los bytes 28 y 29 contienen infor¬ 
mación redundante, que dice al siste¬ 
ma operativo cual es la longitud total 
del fichero en número de sectores uti¬ 
lizados por él. Sin embargo, como to¬ 
dos los sectores que albergan a un fi¬ 
chero están unidos por medio de los 
2 primeros bytes de cada uno de ellos, 
cuando ya no hay más sectores que 
leer estos dos bytes lo indican en el úl¬ 
timo sector. 

Esta misma estructura es utilizada 
por los cabeceros de los otros siete fi¬ 
cheros referidos en este sector del di¬ 
rectorio, mantiendose el mismo orden 
de situación de los bytes que portan 
la información relevante que identifi¬ 
ca a cada fichero. 


ANUNCIESE 
POR MODULOS 


■fetf. (91) 7337969 



























Regresión 

lineal 


Múltiples son las aplicaciones prác- 
:cas que permiten la utilización de la 
Regresión Lineal cuando disponemos 
ce datos de naturaleza estadística o 
experimental. Con este programa po¬ 
demos hacer los cálculos adecuados 
:on mayor comodidad, eliminando 
posibles errores durante el manejo de 
ios datos. 

Como punto de partida dispone¬ 
mos de un conjunto de cifras (datos). 
Cada uno viene representado por un 
punto en un plano, cuyas coordena 
das son (x, y). Nuestra intención es 
ajustar, el conjunto de puntos a una 
recta que tiene por ecuación gené¬ 
rica: 

y = ax + b 

La intención última es que la recta 
>e ajuste lo más posible a los puntos. 

El método utilizado para hallar los 
parámetros a y b es el llamado ajuste 
por «mínimos cuadrados». Los crite¬ 
rios utilizados en este método son: 

1. Los valores de las abcisas —co¬ 
ordenadas en el eje x— son exactos. 

2. La diferencia entre los valores in¬ 
troducidos «y» y el valor que tendría 
la curva «ax + b» —para una mis¬ 
ma x— sea mínima. 

Partiendo de estas premisas llega¬ 
mos, después de una serie de opera¬ 
ciones matemáticas, a un sistema de 
dos ecuaciones con dos incógnitas: 

N N 

£V¡—N-b-a^X¡=0 

i i 

N N N 

^ X,-Y¡-b^ X¡-a^ X?=0 
i i i 

donde «a» representa la pendiente de 
la recta, «b» la ordenada, «N» el nú¬ 


mero de puntos e «y» los valores de 
las coordenadas de los puntos. 


FUNCIONAMIENTO 
DEL PROGRAMA 

Lo primero que hace el ordenador 
es pedirnos el número de puntos que 
vamos a introducir. Posteriormente se 
irán tecleando los pares de valores x, 
y, no tardando en aparecer en la pan¬ 
talla los valores «a», «b» y «r», que 
son la pendiente, la ordenada y el coe¬ 
ficiente de correlación. Este último es 
un parámetro que nos ofrece una idea 
sobre cuánto se ajusta la recta a los 
puntos. Si r = 1 significa que la rec¬ 
ta pasa por todos los puntos. Cuanto 
más por debajo de este valor se sitúe 
más dispersos se encontrarán los pun¬ 
tos en torno a la recta. 

La pantalla también indica una se¬ 
rie de funciones: 

G. Representación gráfica. Consiste 
en una visualización gráfica de los 
puntos y la recta. Una vez que están 
situados los puntos y los ejes de coor¬ 
denadas, pulsando Return aparece la 
recta. Presionando nuevamente la te¬ 
cla Return volvemos a la parte prin¬ 
cipal del programa. 

E. Extrapola valores. Esto consiste 
en hallar valores de la recta que de¬ 
seamos conocer. Se introducen los va¬ 
lores mínimo y máximo —correspon¬ 
dientes al eje x— y el intervalo con el 
que el valor mínimo se va acercando 
al máximo. Seguidamente obtendre¬ 
mos los valores de las «x» con sus co¬ 
rrespondientes «y». Pulsando otra vez 
Return aparecerá la representación 
gráfica, tomando como límites los va¬ 
lores mínimo y máximo. A veces re¬ 
sulta útil esta función para compro¬ 


bar dónde corta la recta a los ejes 
coordenados, puesto que no siempre 
quedan formateados dentro de la 
pantalla. En estos casos es aconseja¬ 
ble extrapolar para valores más nega¬ 
tivos —si los puntos que hemos intro¬ 
ducido son positivos— o viceversa. 

Junto a los ejes de coordenadas 
aparecen unas ligeras marcas que co¬ 
rresponden al valor de la unidad. 

I. Imágenes. Al introducir un va¬ 
lor x proporciona el correspondiente 
a f(x). 

A. Antiimágenes. Introduciendo un 
valor para y devuelve el correspon¬ 
diente a 

P. Parámetros. Vuelve a escribir los 
valores de los parámetros a, b y r. 

DESCRIPCION DEL PROGRAMA 

Línea 10. Define una función FNC 
que redondea hasta las milésimas. 

Líneas 50 a 70. Introduce los valo¬ 
res de los puntos. 

Líneas 80 a 140. Calcula los suma- 
torios y los coloca como coeficientes 
de las ecuaciones. 

Línea 145. Calcula el coeficiente de 
correlación. 

Líneas 150 a 245. Calcula la pen¬ 
diente y la ordenada, resuelve el sis¬ 
tema de ecuaciones y los imprime en 
pantalla. 

Líneas 250 a 253. Imprime las fun¬ 
ciones que puede realizar el progra¬ 
ma. 

Líneas 254 a 268. Escoge la función 
que va a realizar. 

Línea 270. Ejecuta la extrapolación 
de valores e imprime los resultados. 

Líneas 315 a 357. Ejecuta la extra¬ 
polación de valores e imprime los re¬ 
sultados. 

Líneas 358 a 359. Representación 
gráfica de los valores extrapolados en¬ 
tre los puntos máximo y mínimo. 

Líneas 400 a 460. Encuentra los va¬ 
lores máximo y mínimo de entre to¬ 
dos los puntos introducidos y los co¬ 
loca en las variables MX, NX, MY y 
NY. 

Líneas 520 a 530. En la primera 
parte comprueba si los ejes de coor¬ 
denadas entran en el formato de la 

cxMTvnodore r n 
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pantalla y en caso afirmativo salta a 
otra subrutina que los representa. En 
la última parte se sitúan los puntos. 

Línea 700. Dibuja el eje de coor¬ 
denadas. 

Línea 710 y 711. Dibuja la posición 
del valor «1» en el eje de ordenadas. 

Línea 720. Dibuja el eje de abcisas. 


Línea 730 y 731. Dibuja la posición 
del valor «1» en el eje de abcisas. 

Línea 740. Calcula los parámetros 
PX y PY que se utilizan en las ruti¬ 
nas de los gráficos, para que en todo 
momento los valores a representar 
queden formateados debidamente. 

Líneas 750 y 770. Sitúan los pun¬ 


tos de la recta en la pantalla gráfica. 

Líneas 780 a 810. Calcula e impri¬ 
me la imagen de un número. 

Línea 820 a 850. Lo mismo que en 
el caso anterior, pero con la antiima¬ 
gen. 

Joan HOMS 


o_REM ñJUSTE DE UNA FUNCION PRO EL METODO DENININOS CUADRADOS 
10 DEF FNC<X>-íNT<X#10000+.3>/10000 
15 REM CAS LINEAL AX+B 

29 F’R I NT" LlsOÍNfl" : P0KE36873 , S 

22 PRI NT :: D##* INSTRUCC10NES*" ; PRI NT.'SMUFULSA ¿EETI ¡RNS PARA 

30 INPUT"ENUMERO DE VALORES"¿N 
40 DIN A(N-1,1),B<2,3) 

50 FORT*0TON-1 

60 INPUT"#VALOR X,V";A <T,0 ),A < T,1> 

70 NEXT 

80 FORT*0TON-1 

90 B< 1 , 3>=B(1.. 3>+A<T, 0>*A<T,1 > 

100 B<2,3)*B(2j3)+ACT,1) 

110 B (1, 1) =B (1, i > + A C T, 0 > $A T.. 0 > 

120 B C12 > =B (1.-2 > + A ( T8 ) 

125 B<0, 1>*BC0.. D+A<T, 1>*A<T, 1> 

130 NEXT 

140 B í 23 1 >=Bí 1,2) : B<2¿2 )«N:M=B<Íj2) 

145 R= <N#B( 1 » 3)-B<2> 3>*B(2, 1 > >/SOR< <N*B(1,1 ) -B(1,2>*B< 1,2 


CONTINUAR M" 


3) ) > 

150 REM 


>*<N#B<0.1)-B<2^3)#B<2 


RESQLUCIO DE L"EQUACI0 
IF SON (B (12 > } -SUN (B í. ¿2 ) TriEN N——N 
FORT-lr03 
B<1,T>=B<1,T>#N 
B (2T > =B ( 2 .• T > *M 
NEXT 

X*CB<1^3)+B(2/3))X<B<1 j. 1>+B<23 1 ) 
t = < B (23 ) ~B < 21 > *X > XB < 23 2) 

N=ABSCN) 

pr i nt n :m*m pend i ente a» "; x 
240 PRI NT "«INORDENADA B="’;Y 

245 F'RINT"MKC0EFICIENlE DE C0RRELACI0 R=".¡R 

2b0 F'RINT" WWfíRtPRb. GRAFICA 83" • PRI NT "MI MAGEN DE. . 31" 

F’RINT" lÜfcANT11NATGEN DE. „ SFi" : PRINT"«^EXTRAPOLAR VALOREA 
F'R I NT" «^PARAMETROS CURVA rf ;i 
GETA$ 

IFA$="E"THEN320 
IFA$="G"THEN270 
IFA$*"P"THEN230 
IFA$="I"THEN730 
IFA$-"A"THEN320 
G0T0254 
GOSUB400 
280 GOSUB500 

230 GETA$ ; IFA$OCHR$<13)THEN23A 
300 GOSUB750 

310 GETA$ ; IFA$OCHR$ < 13 ) THEN31A 
315 F0R4 : GOTO250 


160 
170 
180 
130 
200 
210 
220 
22c 

230 


252 

253 

254 
251 

256 

257 

258 

259 
268 
270 


SE" 


N. de R.: Aunque el autor ha desarro¬ 
llado este programa utilizando las le¬ 
yendas en catalán, no plantea ningu¬ 
na dificultad alterar las sentencias que 
las llevan. 

Vic 20 con Superexpander. 
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320 PRI NT" W®Hí#EXTRñPOLflR VfiLÜRS 11 

325 F’RINT"Jfl##VALQR MINIM I MAXIM" : INF’UTNX,MX 

330 IFNX>MXTHENPRINT"7' HfiS EQÜIVÜCAT, PRIMER ENTRA EL MINIM" •' GQT0325 


335 IFNX»MXTHENPRINT”NO S*ACEPTEN NOMBRES IGUALS" : G0T0325 

340 INPIJT " M INCREMENTj I ; IFI O0THENPR I NT" VALOR ERRONI" : GOTO340 

345 PR I NT " IjABC ISES 23 » ORDENALES" : PR I NT" 3 1": PR I NT" ¡S 

i 

348 MY*NX#X+Y : NV-MV 
350 FORT«NXTOMXSTEPI 

352 IFT#X+Y>MYTHENMY*T#X+Y 

353 IFT#X+Y<NYTHENNY»T#X+Y 

354 PR I NT FNC <.! ')> FNC < T#X+Y > 

355 NEXT 

357 GETA$ • IFfi$OCHR$< 13>THEN357 

358 GOSUB740 
353 GOTO280 

400 REM MAXIM I MINIM 

405 MX*R<i,0>:NX«MX:MV«A<1,1> : NY-MY 

410 FGRT=0TÜN-1 

420 IFA <T,0 >>MXTHENMX=A<T,0> 

430 IFA(T,0)<NXTHENNX*A<T,0> 

440 IFA < T, 1 > >MYTHENMY SS A (T, 1 > 

450 IFA<T, i)<NYTHENNY»fl<T,1) 

460 NEXT:GOSUB740 
470 RETURN 


500 REM REPRESENTAC¡O GRAFICA 

510 FOR2 ; DIM0,0,1,1 

520 REM DIBUIXA EIXOS 

530 Q*-PX#NX : W*10 : K»W ; E-F’V#MY 

540 IFNXO0THÉNGQSUB700 

550 iFNX<=0ANDMY-1>0THENGOSUB710 

560 IFMY>=0THENGOSUB720 

570 iFMY>«0AND1-NX>0THENGOSUB730 

590 REM SITUA PUNTS 

600 FORT-0TON-1 

605 XX=PX*<A(T,0)-NX> : YY«PY#<MY-A<T* 1 >> 

607 IFXX<0ORYY<0THEN620 
610 READ2/XX, YY 
620 NEXT 
630 RETURN 

700 INPUT#2,Q,0TÜQ,1023 : RETURN 

710 IFQ-W<0THENW-0 

711 I NPUT#2, Q-W.. PY# < MY-í > TOQ+K , PY# < MY-1 > ■ RE 1 URN 
720 INPUT#2,0,ETO1023,E:RETURN 

730 IFE-W<0THENW«0 

731 I NPUT#2, PX*< 1 -NX) E-WTQPX# ( 1 -NX >, E+K ; RETURN 
740 PX=1022/<MX-NX>•PY=1022/<MY-NY>•RETURN 

750 FORT«NXTOMXSTEP<MX-NX)/200 

755 XX=PX*(T-NX>•YY=PY*<MY-T#X-Y > 

756 IFXXC0ORYYC0THEN770 
760 READ2 * XX*YY 

770 NEXT:RETURN 
780 REM IMATGE 

790 PRINT"*Wr : INPUT"#VALOR PER X";A 

800 PRINT"IMATGE"Y+A#X 

810 G0T0254 

820 REM ANTIIMATGE 

830 PRINT "MW 1 * : INPUT"#VALOR PER Y ".¡A 

840 PRINT"ANT11MATGE"<A-Y >/X 

850 G0T0254 
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Forth para el 064 


Escribamos en el teclado 1 y pul¬ 
semos RETURN. FORTH nos res¬ 
ponderá con el mensaje OK. Si escri¬ 
bimos 2 3 (y, como siempre aunque 
no lo volvamos a indicar, pulsamos 
RETURN), obtenemos el mismo re¬ 
sultado. Si ahora escribimos ., el or¬ 
denador nos contesta con un 3 (y el 
OK que nos indica que todo ha ido 
bien). Un nuevo . provocará la impre¬ 
sión de un 2 y un tercer . la del 1 in¬ 
troducido en primer lugar. Si insisti¬ 
mos y volvemos a escribir ., obtendre¬ 
mos un cierto número,pero seguido 
esta vez no de OK,sino de un mensa¬ 
je de error (EMPTY STACK) que nos 
indica que la pila está vacía. Para en¬ 
tender lo que está sucediendo, debe¬ 
mos recordar el concepto de pila. 

La pila es una de las estructuras de 
datos más importantes en Informáti¬ 
ca. Los microprocesadores, incluido el 
6510 del C-64, usan una pila para 
guardar temporalmente datos y, sobre 
todo, para asegurar la lógica de las lla¬ 
madas subrutinas y el feliz retorno 
desde las mismas. Los compiladores 
y los programas recursivos usan pilas 
y lo mismo hacen los intérpretes BA¬ 
SIC (citemos, por ejemplo, la pila que 
almacena con cada GOSUB la direc¬ 
ción a la que debe volverse con el co¬ 
rrespondiente RETURN). Pero mien¬ 
tras que en la mayor parte de los len¬ 
guajes la pila (o pilas según los casos) 
permanece invisible al usuario, en 
FORTH es directamente accesible y 
constituye uno de los elementos cen¬ 
trales de la programación. Para ser 
más precisos, digamos que nos esta¬ 
mos refiriendo a la llamada «pila de 
datos» que vamos a pasar a describir, 
ya que en FORTH existe una segun¬ 
da pila tan importante como aquélla, 
pero sobre la que no diremos nada de¬ 
bido a la limitación del espacio dis¬ 
ponible. 

Como su mismo nombre indica, 
una pila no es más que una zona de 
la memoria viva en la que se van api¬ 
lando, es decir, almacenando unos en¬ 
cima de otros, números binarios (de 


16 bits en el caso de FORTH) con¬ 
servándose rastro únicamente de la 
disección en que se han guardado el 
primero y el último de ellos. Cada 
nuevo número introducido debe ser 
apilado (colocado) sobre el anterior y 
no puede ser intercalado entre ele¬ 
mentos preexistentes en la pila. Aná¬ 
logamente, el único elemento de una 
pila que resulta ser directamente ac¬ 
cesible es (normalmente, ya que como 
veremos FORTH ofrece muchas faci¬ 
lidades en este sentido) el que se en¬ 
cuentra en la cima de la pila, de mo¬ 
do que el primer elemento que puede 
retirarse de una pila es, precisamente, 
el último introducido. Una analogía 
que puede resultar sugerente es la de 
una pila de platos en la cual no está 
permitido más que colocar un plato 
encima de todos los demás o retirar 
el plato que se encuentra en dicha po¬ 
sición dominante y que ha sido el ul¬ 
timo introducido. En este sentido, en 
inglés se habla de pilas LIFO,ya que 
«last in, first out» significa que el úl¬ 
timo en entrar es el primero en salir. 

Cuanto se inicializa FORTH la pi¬ 
la está vacía (al igual que lo está tras 
cualquier error o la ejecución de la 
plabra SP!, cuya acción consiste pre¬ 
cisamente en vaciar la pila). Si al ana¬ 
lizar una línea de pantalla el intérprete 
externo de FORTH encuentra un nú¬ 
mero, lo deposita en la cima de la pi¬ 
la. Así, en el ejemplo que hemos visto 
antes, los números 1, 2 y 3 han ido 
siendo colocados en la pila por este 
orden. La situación de la pila en este 
caso se expresa simbólicamente como 
(1,2,3) siendo el elemento más a la de¬ 
recha el que se encuentra encima de 
todos los demás. v 

La palabra . sirve para retirar el úl¬ 
timo elemento de la pila, que en este 
caso era el 3, e imprimirlo en panta¬ 
lla. La acción de . sobre la pila puede 
por tanto representarse como (1,2,3 - 
1,2) en este caso concreto y en gene¬ 
ral como (n -), donde el guión sirve 
para separar los últimos elementos de 
la pila antes y después de la ejecución 


de la palabra. También resulta ahora 
fácil entender que al volver a escribir 
. vayamos obteniendo sucesivamente 
2, 1 y un número sin sentido seguido 
de un mensaje de error para indicar¬ 
nos que la pila estaba vacía. 

Por supuesto que . no es la única 
palabra que actúa sobre los elemen¬ 
tos de la pila. De hecho, la mayor par¬ 
te de las palabras que se encuentran 
en el diccionario de base y de aque¬ 
llas definidas por el usuario tiene al¬ 
guna influencia sobre la pila. Consi¬ 
deremos, por ejemplo, la palabra 
DUP, cuya acción consiste en dupli¬ 
car el número que se encuentra en la 
cima de la pila; es decir, la misma vie¬ 
ne simbolizada por (n - n,n). Para 
comprobarlo, escribamos (¡recordan¬ 
do que los espacios son importantísi¬ 
mos en FORTH!) la frase 1 2 DUP 
..., y obtendremos, tras RETURN, 2 
2 1 OK. En consecuencia, la palabra 
DUP no hace sino manipular la pila, 
a diferencia de . que, además, impri¬ 
me un número. 

FORTH ofrece muchas facilidades 
para controlar la pila. Además de las 
ya mencionadas DUP y SP! podemos 
citar unas cuantas de las palabras más 
usuales cuya acción se limita a la ma¬ 
nipulación de la pila. Por ejemplo: 

- DROP (n -), elimina el número 
de la cima de la pila. 

- SWAP (n,m - m,n), intercambia 
los dos últimos elementos. 

- OVER (n,m - n,m,n), duplica en 
la cima de la pila el penúltimo de sus 
elementos. 

- ROT (n,m,r - m,r,n), rota los tres 
últimos elementos. 

La palabra PICK (que por cierto no 
aparece en la documentación que 
acompaña a este FORTH a pesar de 
encontrarse presente en el mismo) me¬ 
rece una explicación más detallada, ya 
que permite acceder a cualquier pun¬ 
to de la pila. Su acción consiste en re¬ 
tirar el último elemento de la misma, 
digamos el número n, y luego dupli¬ 
car el elemento que ocupa el n-simo 
lugar a partir del que se halla en la 
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1 cima de la pila tras haber retirado n. 
Si, por ejemplo, temamos (5,1,9,3) en 
la pila y ejecutamos PICK, primero 
se retira el 3 dejándola como (5,1,9) 
y luego se duplica el tercer número, 
es decir, el 5, para dar finalmente 
(5,1,9,5). A estas alturas debería ser 
claro que 2 PICK tiene exactamente 
el mismo significado que OVER y que 
PICK es equivalente a DUP. 

Pero la pila no sirve sólo para guar¬ 
dar en ella números que pueden ser 
1 manipulados para acabar siendo im- 
I presos por medio de . . Tiene, de he- 
| cho, dos papeles centrales. El prime- 
I ro consiste en pasar argumentos en- 
re palabras (en incluso entre FORTH 
| ENSAMBLADOR) y en este senti- 
I co juega, parcialmente, el mismo pa- 
rel que las variables, incluyendo aquí 
i a las variables locales de otros lengua- 
I es, aunque como veremos, FORTH 
i ;ambién dispone de variables enten- 
¡ aidas en un sentido más habitual. Este 
I mportante papefde la pila será ana¬ 
lizado más adelante. 

La pila es, también, el lugar donde 
-e realizan las operaciones aritméticas. 
En efecto, FORTH sabe realizar cier¬ 
tos cálculos matemáticos, +, * y / 

entre otras, pero únicamente sobre ele¬ 
mentos que se encuentran entre los úl¬ 
timos de la pila. Por ejemplo, T reti¬ 
ra los dos últimos elementos de la 
misma y deposita allí su suma, es de¬ 
cir, su acción viene representada por 
(n,m - r), siendo r = n + m. Por tan¬ 
to, si queremos saber la suma de 2 y 
3, basta escribir la frase 2 3 + . (equi¬ 
valente al PRINT 2 + 3 del BASIC), 
para que FORTH nos conteste, no lo 
adivinaréis nunca, con un sapientísi¬ 
mo 5. Notemos que el orden en que 
van escribiéndose las cosas, conocido 
con el nombre un tanto pedante de 
notación polaca inversa por razones 
que no hacen al cuento, es muy dis¬ 
tinto al del BASIC, aunque debería 
resultar más que familiar para los 
usuarios de una de las más conocidas 
¡ marcas de calculadoras de bolsillo. 
Primero deben introducirse en la pila 



los operandos (el 2 y el 3 en este ca¬ 
so), luego el operador (+) que actúa 
únicamente sobre números pre¬ 
existentes en la pila; finalmente pue¬ 
de añadirse un . si se desea conocer 
el resultado que ha quedado en la ci¬ 
ma de la pila. 

Otro ejemplo nos viene proporcio¬ 
nado por la sucesión de palabras /- 
cuya acción (n - n-1) de decrementar 
en una unidad el último elemento de 
la pila es tan útil y se realiza tan re¬ 
pentinamente que FORTH dispone de 
una palabra específica para realizar 
esta tarea en forma más rápida y ocu¬ 
pando menos memoria en la compi¬ 
lación; se trata, bastante lógicamen¬ 
te, de la palabra /-. Existen también 
palabras análogas /+, 2+ y 2- cuya 
acción respectiva es (n - n + 1), (n - 
n + 2) y (n - n-2). 

Existen muchas más palabras que 
permiten controlar la pila o realizar 
operaciones matemáticas en la misma, 


pero nos limitaremos aquí a señalar 
que los operadores de comparación 
> y < tiene como acción (n,m - 0, 
siendo f cierto (es decir, distinto de ce¬ 
ro) si n era mayor (respectivamente 
menor) que m y falso (es decir, nulo) 
en caso contrario. Existe una versión 
abreviada 0 < de la frase 0 < . 

Tampoco . y TYPE son las únicas 
palabras relacionadas con la impre¬ 
sión. Un carácter de código ASCII n 
puede imprimirse por medio de n 
EMIT. Igualmente, una cadena de ca¬ 
racteres se imprime mediante el uso 
de la palabra ” en la forma: ” MEN¬ 
SAJE” (¡nótese el espacio obligatorio 
tras la palabra !’!) envía a la pantalla 
la cadena MENSAJE. Para que la im¬ 
presión se produzca no en la pantalla 
sino en la impresora, debe usarse PA¬ 
PER y, para volver a la pantalla, VI¬ 
DEO (¡bastante más fácil que en BA¬ 
SIC!). Aunque aún hay muchas otras 
palabras en este apartado, citemos 
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únicamente CR que provoca un salto 
a la línea siguiente y pongamos el 
ejemplo de la frase PAPER 17 EMIT 
” FORTE!” VIDEO que fuerza a la 
impresora a escribir en minúsculas (ya 
que hemos enviado el carácter ASCII 
17) el nombre de nuestro lenguaje de 
programación preferido. 

LA COMPILACION 

Hasta este momento, cada vez que 
hemos pulsado la tecla RETURN, 
FORTH ha analizado cada palabra 
escrita, entendiendo como palabra to¬ 
da sucesión de caracteres distintos del 
espacio blanco. Así en la frase 23 4 
DUP hay tres palabras: 25, 4 y DUP 
¡Es muy importante recordar que en 
FORTH cada palabra debe separarse 
de las adyacentes por, al menos, un 
espacio! Esto puede parecer una res¬ 
tricción con respecto al BASIC, pero 
además de mejorar la legibilidad, per¬ 
mite que una variable se llame 2-10- 
NUMERO si tal nombre nos parece 
sugerente debido a que, por ejemplo, 
se trata siempre de un valor entre 2 
y 10. Una vez aislada la primera pa¬ 
labra, FORTH va a ver si la misma se 
encuentra en el diccionario (en reali¬ 
dad en el vocabulario de contexto o 
en los vocabularios padres del mismo, 
pero olvidémonos de estas interesan¬ 
tes sutilezas que no podemos comen¬ 
tar aquí. Si la respuesta es afirmati¬ 
va, la palabra es ejecutada y en caso 
contrario se intenta traducir en un nú¬ 
mero (en la base corriente que puede 
ser cambiada a voluntad). Si la pala¬ 
bra resulta ser un número, es deposi¬ 
tado en la pila y si no lo es el proceso 
se detiene con un mensaje de error. 
FORTH continúa la interpretación de 
la línea introducida hasta el fin de la 
misma, para acabar emitiendo el 
mensaje OK si no se ha producido 
ningún error por el camino. 

Esta respuesta inmediata de 
FORTH es común a los lenguajes in¬ 
terpretados (corresponde al modo co¬ 
mando directo del BASIC) y resulta 
un medio interactivo particularmen¬ 
te cómodo y eficaz para la puesta a 
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punto de los programas, sobre todo 
cuando se tiene la modularidad de 
FORTH a nuestra disposición. Pero 
por supuesto, es necesaria la posibili¬ 
dad de diferir la ejecución de las ins¬ 
trucciones (palabras en el caso del 
FORTH) y de agrupar éstas en con¬ 
juntos que puedan ser almacenados 
(en disco, en nuestro caso) y ejecuta¬ 
dos repetidas veces. En BASIC esto se 
consigue anteponiendo a cada línea 
un número de línea y agrupando és¬ 
tas en programas. Aunque estos últi¬ 
mos no existen en FORTH, al menos 



con el mismo sentido, la extensibili- 
dad de este lenguaje permite definir 
nuevas palabras tan complejas como 
se quietan y añadirlas al diccionario. 

El primer método para hacer esto 
es usar la palabra CONSTANT, que 
utilizada en la forma CONSTANT 
NOMBRE retira el último elemento 
de la pila y define una palabra llama¬ 
da NOMBRE que, cada vez que sea 
ejecutada, dejará en la pila aquel nú¬ 
mero. Por ejemplo, si hacemos 10 
CONSTANT DIEZ , el efecto de la pa¬ 
labra DIEZ consistirá en dejar sobre 
la pila un 10. Es claro que CONS¬ 
TANT define constantes, es decir, nú¬ 
meros que son utilizados muy fre¬ 
cuentemente y que se han definido co¬ 
mo tales constantes para ganar espa¬ 
cio en la compilación y tiempo en la 
ejecución. Con estos mismos objeti¬ 
vos, el FORTH del C-64 tiene defini¬ 
dos como constantes los números 0, 

1, 2 y 3. 

Por supuesto que además de las 
constantes tenemos necesidad de va¬ 


riables. Estas se definen como pala¬ 
bras con ayuda de VARIABLE\ que 
utilizada como VARIABLE NOM¬ 
BRE ’ retira un número de la pila y de¬ 
fine una palabra NOMBRE a la que 
asigna el valor inicial de aquel núme¬ 
ro y cuya acción consiste en deposi¬ 
tar sobre la pila la dirección de me¬ 
moria donde se encuentran almacena¬ 
dos los 16 bits correspondientes al 
mencionado valor. Es decir, si defini¬ 
mos 72 VARIABLE DOCE, el ejecu¬ 
tar la frase DOCE ., veremos apare¬ 
cer un número que no es 12, sino la 
dirección donde dicho valor ha sido 
almacenado. Para imprimir en panta¬ 
lla el contenido de los dos octetos cu¬ 
ya dirección de memoria viene dada 
por el número de la cima de la pila, 
puede usarse ?, una palabra cuya ac¬ 
ción es (d -) e imprimir los 16 bits con¬ 
tenidos en la dirección d. Por tanto, 
DOCE ? dará 12. También puede de¬ 
positarse sobre la pila el contenido de 
cualquier dirección de memoria, y en 
particular el valor de una variable, 
mediante la palabra @ cuya acción es 
(d - n) siendo n el número almacena¬ 
do en la dirección d. Por tanto la fra¬ 
se @ . es equivalente a la palabra ?. 
Para cambiar el contenido de una di¬ 
rección de memoria, y en particular 
el valor de una variable, puede usarse 
/ cuya acción (n,d -) consiste en qui¬ 
tar de la pila los dos últimos elemen¬ 
tos de la misma y guardar el penúlti¬ 
mo, n, en la dirección indicada por el 
último, d. Es decir, a la sucesión 11 
DOCE ! DOCE ? FORTH nos res¬ 
ponderá con 11. Nótese que @ y / son 
análogos al PEER y POKE en BA¬ 
SIC, o para ser más precisos y tener 
en cuenta que actúan sobre dos octe¬ 
tos al DEEK y DORE de algunos BA¬ 
SIC, pero su utilización es muchísi¬ 
mo más habitual en FORTH, donde 
/ hace en 77 DOCE ! el mismo papel 
que = en la asignación del BASIC: 
DO = 11. 

Por analogía con las palabras 7+ 
y 7- para incrementar y decrementar 
la cima de la pila, existen las palabras 
7+7 y 7-7 cuya acción (d —) consiste 
en incrementar y decrementar, respec¬ 
tivamente, el contenido de la dirección 
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d. En consecuencia, si escribimos DO¬ 
CE /+/ DOCE ?, la respuesta, 12, nos 
asegura que la variable DOCE ha re- 
cuparado su valor original. 

El método más utilizado para de¬ 
finir nuevas palabras, sin embargo, 
consiste en el uso de las palabras : y 
; en la forma: : NOMBRE ... ; donde 
... representa una sucesión de núme¬ 
ro y palabras definidas previamente. 
La palabra : comienza la definición 
de una nueva palabra llamada NOM¬ 
BRE y pone la intérprete externo en 
modo compilación de forma que 
cuando encuentra un número en vez 
de depositarlo en la pila, lo compila 
como hace también con toda palabra 
(con tal de que no sea una palabra in¬ 
mediata que debe ser ejecutada en to¬ 
da circunstancia) en lugar de proce¬ 
der a su ejecución. El proceso termi¬ 
na al encontrar ;, si antes no se ha 
producido un error debido a la pre¬ 
sencia de una palabra desconocida. 
En caso de compilación correcta, la 
palabra NOMBRE pasa a formar par¬ 
te del diccionario (dentro del llama¬ 
do vocabulario corriente) y a partir de 
este momento puede usarse en pie de 
igualdad con cualquier otra palabra, 
siendo su acción la sucesión de aque¬ 
llas correspondientes a los números y 
palabras incluidas entre NOMBRE y 
;. Pongamos algunos ejemplos: 

: CONSTANTE CONSTANT ; 

: 2 * 2 * ; 

: DOBLE DUP + ; 

La palabra CONSTANTE es la ver¬ 
sión castellanizada de CONSTANT y 
tendrá exactamente su misma acción. 
Por otro lado, 2* servirá para multi¬ 
plicar por 2 la cima de la pila. Así, 



12 2* . dará lugar a una respuesta de 
24, ya que la evolución de la pila ha¬ 
brá sido (12 - 12,2 - 24 -). Finalmente, 
DOBLE tiene exactamente el mismo 
efecto que 2* aunque realizado en dis¬ 
tinta forma ya que tras 12 DOBLE la 
pila pasa de (12) a (12,12) para dar fi¬ 
nalmente (24). 

Es claro que esta forma de cons¬ 
truir nuevas palabras por yuxtaposi¬ 
ción de otras anteriores corresponde 
a la llamada de subrutinas o procedi¬ 
mientos por nombre (en lugar de por 
número de línea como se hace en BA¬ 
SIC), efectuándose el paso de pará¬ 
metros a través de la pila. Es decir, ca¬ 
da nueva palabra definida en función 
de las anteriores es el equivalente de 
un procedimiento en lenguajes como 
LOGO o PASCAL y se utiliza la pila 
para los parámetros a pasar y las va¬ 
riables locales. En la cadena de llama¬ 
das a palabras (o procedimientos) de 
nivel inferior siempre se acaba por lle¬ 
gar a palabras primitivas, definidas en 
código máquina y directamente eje¬ 
cutables. 

Pero una de las cualidades de 
FORTH es la facilidad y naturalidad 
con las que el usuario puede definir 
nuevas primitivas. En efecto, usando, 
en lugar de : y ;, CODE y ENDCO- 
DE junto con vocabulario ASSEM- 
BLER, pueden definirse palabras en 
ensamblador cuyo estatus posterior 
será equivalente al de las palabras de¬ 
finidas directamente en FORTH. 

Notemos que CONSTANT VA¬ 
RIABLE\ : y CODE son palabras que 
permiten definir nuevas palabras. Pero 
la extensibilidad de FORTH es tan 
grande que pueden definirse palabras 


que cuando sean ejecutadas definan 
a su vez nuevas palabras. Esto puede 
hacerse en un sentido trivial como el 
visto anteriormente en el ejemplo de 
CONSTANTE o en uno mucho más 
profundo que hace uso de las palabras 
< BUÍDS y DOES> junto a las 
enormes posibilidades de controlar y 
dirigir el proceso de compilación que 
FORTH nos ofrece. No tenemos es¬ 
pacio para indicar aquí cómo puede 
hacerse esto ya que exige un cierto co¬ 
nocimiento de cómo se compilan las 
nuevas palabras y, por tanto, nos li¬ 
mitaremos a citar uno de los muchos 
ejemplos en los cuales esta posibilidad 
resulta útil. El FORTH del C-64 ca¬ 
rece de variables dimensionadas. Es 
sin embargo muy fácil dotarle de una 
palabra, que por analogía con el BA¬ 
SIC podemos llamar DIM, y que al 
ser ejecutada defina a su vez una va¬ 
riable con dimensiones al igual que 
VARIABLE define una variable ha¬ 
bitual. 

Digamos, finalmente, que esta ha¬ 
bilidad y la capacidad de controlar 
completamente el proceso de compi¬ 
lación (inexistente en otros lenguajes) 
harán las delicias de todo usuario al 
que entusiasme la programación per¬ 
sonalizada. Si además es aficionado 
el código máquina, tendrá a su dis¬ 
posición una variante correspondiente 
al lenguaje ensamblador y proporcio¬ 
nada por la palabra \CODE. 

Juan María y José Miguel 
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FiskerPrice* 

ayuda a los pequeños a descubrir 
el mundo de los ordenadores. 
Porque sabe que los adultos del 
futuro lo necesitan asi. 


Desde hace muchos años Fisher-Price viene siendo parte del mundo de los niños, ayudando a los pe¬ 
queños a desarrollar importantes habilidades mientras juegan. 

Hoy en día los niños están creciendo en un mundo nuevo. Un mundo en dónde los ordenadores posibili¬ 
tan nuevas y emocionantes experiencias. Esta es una razón suficiente para lanzar un nuevo producto 
Fisher-Price: 


«Fisher-Price, Juegos educativos para ordenadores» 



Hemos estado traba¬ 
jando durante mucho 
tiempo con los principales 
diseñadores de programas, para estar seguros de que nuestros juegos ofrecen una equilibrada 
combinación de diversión y valor pedagógico. Nuestros programas cubren cinco áreas clave en 
el desarrollo del niño: aritmética, lenguaje, creatividad, habilidades generales y conocimientos bá¬ 
sicos de microinformática. 

Para los menores de 8 años disponemos de los programas con orla roja, para los de hasta 
12 años disponemos de los programas con orla azul. Descubrirá que los juegos han sido cuida¬ 
dosamente diseñados para la edad y nivel de desarrollo apropiados. 

Nuestros programas están disponibles en castellano con versiones en cassette para Comodore-64 
y Sinclair Spectrum. 

No dude en conseguir la gama completa de «Fisher-Price, Juegos Educativos para Ordenado¬ 
res»... por su valor, diversión y calidad educativa. 



FisherPrice’ 

Juegos educativos para ordenadores. 







COMMODORE 16 
LA EMOCION DE EMPEZAR 


Iniciarse en el mundo de los 
ordenadores personales con un 
COMMODORE 16 es sumar, a la emoción 
de empezar, la emoción del futuro. 

Porque es un ordenador de 
fácil manejo y programación, pero con 
prestaciones que sólo se encuentran en 
ordenadores de costo mucho más elevado. 

Porque es un ordenador 
pequeño, pero con la mayor cantidad de 


software y periféricos, que multiplican sus Porque es el ordenador ideal 

posibilidades futuras. para empezar y perfecto para seguir. 


PRINCIPALES CARACTERISTICAS 


- 16 K. 

- 40 COLUMNAS x 25 LINEAS. 


- COMANDOS DE AL TO NIVEL 

- 121 COLORES. 


PARA GESTION DE COLOR, SONIDO 

- GRAFICOS EN ALTA RESOLUCION 


Y GRAFICOS DE AL TA RESOLUCION. 

- 2 GENERADORES DE TONO. 


- TECLADO PROFESIONAL. 

- AMPLIA GAMA DE PERIFERICOS. 





commodore 16 
LA EMOCION DEL FUTURO 



commodore 

COMPUTER 



MICROELECTRONICA Y CONTROL 
d Valencia, 49-53. 08015 Barcelona, d Princesa, 47, 3. 0 G. 28008 Madrid. 
UNICO REPRESENTANTE DE COMMODORE EN ESPAÑA 



























